Author: guillem
Date: 2007-05-11 00:27:34 +0000 (Fri, 11 May 2007)
New Revision: 758
Modified:
trunk/ChangeLog
trunk/scripts/dpkg-genchanges.pl
Log:
Commit the actual changes for:
Fix perl warnings in dpkg-genchanges when called with -S. Closes: #423193
Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2007-05-10 22:58:41 UTC (rev 757)
+++ trunk/ChangeLog 2007-05-11 00:27:34 UTC (rev 758)
@@ -1,3 +1,7 @@
+2007-05-10 Guillem Jover <[EMAIL PROTECTED]>
+
+ * scripts/dpkg-genchanges.pl: Only use the %p2f values if defined.
+
2007-05-09 Guillem Jover <[EMAIL PROTECTED]>
* configure.ac: Bump version to 1.14.3~.
Modified: trunk/scripts/dpkg-genchanges.pl
===================================================================
--- trunk/scripts/dpkg-genchanges.pl 2007-05-10 22:58:41 UTC (rev 757)
+++ trunk/scripts/dpkg-genchanges.pl 2007-05-11 00:27:34 UTC (rev 758)
@@ -233,15 +233,15 @@
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$/) {
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
