dpkg-source: Fix "uninitialized value" warning

diff --git a/ChangeLog b/ChangeLog
index b967a56360a64a32853092d0022af41cb8328681..1cb5c8a170523394582cab33518832424fd26249 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
 
        * configure.ac: Release 1.14.16.1
 
+       * scripts/dpkg-source.pl: Fix "uninitialized value"
+       warning.
+
        * debian/control: Add libtimedate-perl to
        dpkg-dev's Depends and to Build-Depends (for
        build-time tests). This introduces our first

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 12355e1fb70389b67bd7cbd215655766a653156f..cbab570ec806880194feca65e40cb2604eb5a0ed 100755 (executable)
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -771,7 +771,7 @@ if ($opmode eq 'build') {
     open(DSC, ">:utf8", "$basenamerev.dsc") ||
         syserr(_g("create %s"), "$basenamerev.dsc");
 
-    $substvars->parse($varlistfile) if -e $varlistfile;
+    $substvars->parse($varlistfile) if $varlistfile && -e $varlistfile;
     tied(%{$fields})->set_field_importance(@dsc_fields);
     tied(%{$fields})->output(\*DSC, $substvars);
     close(DSC);