Avoid pre-declarations.
authorShlomi Fish <shlomif@shlomifish.org>
Sun, 18 Nov 2012 09:47:10 +0000 (11:47 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2013 00:22:05 +0000 (11:22 +1100)
lib/perl5db.pl

index 460b4b1..b256dff 100644 (file)
@@ -6482,7 +6482,7 @@ sub dump_trace {
     # These variables are used to capture output from caller();
     my ( $p, $file, $line, $sub, $h, $context );
 
-    my ( $e, $r, @a, @sub, $args );
+    my ( $e, $r, @sub, $args );
 
     # XXX Okay... why'd we do that?
     my $nothard = not $frame & 8;
@@ -6507,7 +6507,7 @@ sub dump_trace {
     {
 
         # Go through the arguments and save them for later.
-        @a = ();
+        my @a;
         for my $arg (@args) {
             my $type;
             if ( not defined $arg ) {    # undefined parameter