The following commit has been merged in the master branch:
commit 07e174f510e998a9bb17dabd9cc932a486a263b3
Author: Guillem Jover <guil...@debian.org>
Date: Tue Jun 5 21:12:07 2012 +0200
Dpkg::Control::Fields: Put an & before field_capitalize() calls
The definition of the function appears later on, and perl 5.16 gives
warnings about usage before declaration.
Closes: #676262
diff --git a/debian/changelog b/debian/changelog
index b0271c1..4415b84 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -54,6 +54,8 @@ dpkg (1.16.4) UNRELEASED; urgency=low
a new perl package bumping the perl ABI impossible, as both packages
become uninstallable. Thanks to Dominic Hargreaves <d...@earth.li>.
Closes: #675947
+ * Put an & before field_capitalize() calls in Dpkg::Control::Fields to
+ fix a usege before declaration warning with perl 5.16. Closes: #676262
[ Updated man page translations ]
* German (Helge Kreutzmann).
diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm
index 8ff4c47..d9ecc85 100644
--- a/scripts/Dpkg/Control/Fields.pm
+++ b/scripts/Dpkg/Control/Fields.pm
@@ -284,8 +284,8 @@ our %FIELDS = (
},
);
-my @checksum_fields = map { field_capitalize("Checksums-$_") }
checksums_get_list();
-my @sum_fields = map { $_ eq "md5" ? "MD5sum" : field_capitalize($_) }
+my @checksum_fields = map { &field_capitalize("Checksums-$_") }
checksums_get_list();
+my @sum_fields = map { $_ eq "md5" ? "MD5sum" : &field_capitalize($_) }
checksums_get_list();
&field_register($_, CTRL_PKG_SRC | CTRL_FILE_CHANGES) foreach @checksum_fields;
&field_register($_, CTRL_INDEX_PKG) foreach @sum_fields;
--
dpkg's main repository
--
To UNSUBSCRIBE, email to debian-dpkg-cvs-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
