r56137 - /trunk/dh-make-perl/lib/Debian/AptContents.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Apr 15 20:30:31 2010
New Revision: 56137

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56137
Log:
use a my variable for loop iterator

$_ is volatile :|

Modified:
    trunk/dh-make-perl/lib/Debian/AptContents.pm

Modified: trunk/dh-make-perl/lib/Debian/AptContents.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/AptContents.pm?rev=56137&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/AptContents.pm (original)
+++ trunk/dh-make-perl/lib/Debian/AptContents.pm Thu Apr 15 20:30:31 2010
@@ -409,14 +409,14 @@
 
     # see if the module is included in perl core
     my $core_ver;
-    for (@debian_perls) {
-        my $core = Module::CoreList->find_version($_);
+    for my $v (@debian_perls) {
+        my $core = Module::CoreList->find_version($v);
         next unless exists $core->{$module};    # not in that perl version
 
-        # reaching here, the module is in the core version in $_
+        # reaching here, the module is in the core version in $v
         # if we don't need a particular version, we are done
         unless ( defined($version) ) {
-            $core_ver = $_;
+            $core_ver = $v;
             last;
         }
 
@@ -427,7 +427,7 @@
 
         # if the core module version is sufficiently new, we're done
         if ( deb_ver_cmp( $ver, $version ) >= 0 ) {
-            $core_ver = $_;
+            $core_ver = $v;
             last;
         }
     }