Move variable declaration to where it's used
authorAlexandr Ciornii <alexchorny\100gmail.com>
Sat, 8 Aug 2009 11:00:30 +0000 (13:00 +0200)
committerSteffen Mueller <smueller@cpan.org>
Sat, 8 Aug 2009 11:03:18 +0000 (13:03 +0200)
ext/Data-Dumper/Dumper.pm

index a112bf7..69aa1dd 100644 (file)
@@ -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);