Attachment 926984 Details for Bug 1129850 – Fix for 'y' command in debugger

[patch] Fix for 'y' command in debugger

0001-fix-debugger-y-command-scope-level.patch (text/plain), 1.08 KB, created by Alan Olsen on 2014-08-15 06:28:40 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Alan Olsen

Created: 2014-08-15 06:28:40 UTC

Size: 1.08 KB

patch

obsolete

>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 | 4 ++--
> 1 file changed, 2 insertions(+), 2 deletions(-)
>
>diff --git a/lib/perl5db.pl b/lib/perl5db.pl
>index e3f63b3..e8d7751 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 = $@) {
>-- 
>2.0.0.421.g786a89d
>

Actions: View | Diff

Attachments on bug 1129850: 926559 | 926560 | 926984