From 496f5ba57a43840a3c8ee61b21dc60d0c8bb5d52 Mon Sep 17 00:00:00 2001

From: Tony Cook <tony@develop-help.com>

Date: Fri, 15 Aug 2014 10:45:57 +1000

Subject: [PATCH] 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.

---

 lib/perl5db.pl | 2 +-

 1 file changed, 1 insertions(+), 1 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl

index e3f63b3..e8d7751 100644

--- a/lib/perl5db.pl

+++ b/lib/perl5db.pl

@@ -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 = $@) {

-- 

2.4.3