[Debian-l10n-commits] r1049 - /dl10n/trunk/dl10n-txt

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Thu Jun  5 09:15:34 2008
New Revision: 1049

URL: http://svn.debian.org/wsvn/?sc=1&rev=1049
Log:
It might be a Perl 5.10 change.
In "foreach $pkg (@todo_pkg) {", $pkg seems to be local (or it might be
caused by the map {}), and is thus not accepted in the format for STDOUT.
(declaring $pkg as global works also).

Modified:
    dl10n/trunk/dl10n-txt

Modified: dl10n/trunk/dl10n-txt
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-txt?rev=1049&op=diff
==============================================================================
--- dl10n/trunk/dl10n-txt (original)
+++ dl10n/trunk/dl10n-txt Thu Jun  5 09:15:34 2008
@@ -222,7 +222,8 @@
     print "Status of the ".($take_debian?"debian ":"")."packages ".($mask_done?"to do ":"")."in $lang\n\n" unless $show_total;
     
     my %total;
-    foreach $pkg (@todo_pkg) {
+    foreach (@todo_pkg) {
+	$pkg = $_;
 #	print STDERR "consider $pkg\n";
 	# Take only packages having material and not ignored
 	next if defined $ignored_pkgs{$pkg};