diff options
| author | Shlomi Fish <shlomif@shlomifish.org> | 2012-11-18 11:47:10 +0200 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-01-02 11:22:05 +1100 |
| commit | 78512fb576cc41f6c840534ee300c97892fc03d8 (patch) | |
| tree | 16f2b2a1701dd8f2c03af02bd6e75198f295fb87 /lib/perl5db.pl | |
| parent | 517cdf98ec4bbc70e52605afa85c59d776d8d26a (diff) | |
| download | perl-78512fb576cc41f6c840534ee300c97892fc03d8.tar.gz | |
Avoid pre-declarations.
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 460b4b13eb..b256dff6e4 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -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 |