Synchronize with CPAN's Data::Dumper 2.125

[p5sagit/p5-mst-13.2.git] / ext / Data-Dumper / Dumper.pm

diff --git a/ext/Data-Dumper/Dumper.pm b/ext/Data-Dumper/Dumper.pm
index a112bf7..0eb8bf7 100644 (file)
--- a/ext/Data-Dumper/Dumper.pm
+++ b/ext/Data-Dumper/Dumper.pm
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.124'; # Don't forget to set version and release date in POD!
+$VERSION = '2.125'; # Don't forget to set version and release date in POD!
 
 #$| = 1;
 
@@ -382,7 +382,7 @@ sub _dump {
        $out .= '\\' . $s->_dump($$val, "*{$name}");
     }
     elsif ($realtype eq 'ARRAY') {
-      my($v, $pad, $mname);
+      my($pad, $mname);
       my($i) = 0;
       $out .= ($name =~ /^\@/) ? '(' : '[';
       $pad = $s->{sep} . $s->{pad} . $s->{apad};
@@ -391,7 +391,7 @@ sub _dump {
        ($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
          ($mname = $name . '->');
       $mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
-      for $v (@$val) {
+      for my $v (@$val) {
        $sname = $mname . '[' . $i . ']';
        $out .= $pad . $ipad . '#' . $i if $s->{indent} >= 3;
        $out .= $pad . $ipad . $s->_dump($v, $sname);
@@ -1297,7 +1297,7 @@ modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-Version 2.124  (Jun 13 2009)
+Version 2.125  (Aug  8 2009)
 
 =head1 SEE ALSO