diff options
| author | Tony Cook <tony@develop-help.com> | 2014-08-15 10:45:57 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-08-15 11:03:28 +1000 |
| commit | 496f5ba57a43840a3c8ee61b21dc60d0c8bb5d52 (patch) | |
| tree | 4a357ec0ea126a03d3fd7f722e7e0b8e2108a927 /lib/perl5db.pl | |
| parent | 747c467a69dad4c76485fb6311c9645d3152d02a (diff) | |
| download | perl-496f5ba57a43840a3c8ee61b21dc60d0c8bb5d52.tar.gz | |
fix debugger y command scope level
5c2b78e73d3 moved handling of the y command into its own function,
but did not adjust the provided scope level to account for the extra
scope.
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 e3f63b3523..e8d7751ca3 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -528,7 +528,7 @@ BEGIN { # Debugger for Perl 5.00x; perl5db.pl patch level: use vars qw($VERSION $header); -$VERSION = '1.45'; +$VERSION = '1.46'; $header = "perl5db.pl version $VERSION"; @@ -1957,7 +1957,7 @@ sub _DB__handle_y_command { my @vars = split( ' ', $match_vars || '' ); # Find the pad. - my $h = eval { PadWalker::peek_my( ( $match_level || 0 ) + 1 ) }; + my $h = eval { PadWalker::peek_my( ( $match_level || 0 ) + 2 ) }; # Oops. Can't find it. if (my $Err = $@) { |