This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix debugger y command scope level
authorTony Cook <tony@develop-help.com>
Fri, 15 Aug 2014 00:45:57 +0000 (10:45 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 15 Aug 2014 01:03:28 +0000 (11:03 +1000)
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.

lib/perl5db.pl

index e3f63b3..e8d7751 100644 (file)
@@ -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 = $@) {