From: Guillem Jover <guillem@debian.org>
Date: Fri, 11 May 2007 00:27:34 +0000 (+0000)
Subject: Commit the actual changes for:
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=be7bcbcbd738a4908f1b8e78e6c381b3d7839337;p=dpkg

Commit the actual changes for:
Fix perl warnings in dpkg-genchanges when called with -S. Closes: #423193
---

diff --git a/ChangeLog b/ChangeLog
index 1f872bf6..70a8fcf6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-05-10  Guillem Jover  <guillem@debian.org>
+
+	* scripts/dpkg-genchanges.pl: Only use the %p2f values if defined.
+
 2007-05-09  Guillem Jover  <guillem@debian.org>
 
 	* configure.ac: Bump version to 1.14.3~.
diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl
index dad966bc..1f254d30 100755
--- a/scripts/dpkg-genchanges.pl
+++ b/scripts/dpkg-genchanges.pl
@@ -233,15 +233,15 @@ for $_ (keys %fi) {
 
 	    if (m/^Description$/) {
 		$v=$` if $v =~ m/\n/;
-		if ($f =~ m/\.udeb$/) {
+		if (defined($f) && $f =~ m/\.udeb$/) {
 			push(@descriptions,sprintf("%-10s - %-.65s (udeb)",$p,$v));
 		} else {
 			push(@descriptions,sprintf("%-10s - %-.65s",$p,$v));
 		}
 	    } elsif (m/^Section$/) {
-		$f2seccf{$f}= $v;
+		$f2seccf{$f} = $v if defined($f);
 	    } elsif (m/^Priority$/) {
-		$f2pricf{$f}= $v;
+		$f2pricf{$f} = $v if defined($f);
 	    } elsif (s/^X[BS]*C[BS]*-//i) {
 		$f{$_}= $v;
 	    } elsif (m/^Architecture$/) {