From: Frank Lichtenheld <djpig@debian.org>
Date: Mon, 21 Jan 2008 12:20:54 +0000 (+0100)
Subject: dpkg-source: Fix "uninitialized value" warning
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6585256b0f1040d5656ac4c9dce045de6c1d6323;p=dpkg

dpkg-source: Fix "uninitialized value" warning
---

diff --git a/ChangeLog b/ChangeLog
index b967a563..1cb5c8a1 100644
--- 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 12355e1f..cbab570e 100755
--- 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);