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