From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 18 Jun 2002 21:28:33 +0000 (+0000)
Subject: Debugger tweak from from Peter Scott.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36930c6911a0b14ed39c10e078733d8d749fcb9b;p=p5sagit%2Fp5-mst-13.2.git

Debugger tweak from from Peter Scott.

p4raw-id: //depot/perl@17291
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index e106621..997b836 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -980,7 +980,7 @@ EOP
 			} 
 			$pretype = [$1];
 			next CMD; };
-                   $cmd =~ /^y\s*(\d*)\s*(.*)/ && do {
+                   $cmd =~ /^y(?:\s+(\d*)\s*(.*))?$/ && do {
                        eval { require PadWalker; PadWalker->VERSION(0.08) }
                          or &warn($@ =~ /locate/
                             ? "PadWalker module not found - please install\n"
@@ -990,7 +990,7 @@ EOP
                        defined &main::dumpvar
                           or print $OUT "dumpvar.pl not available.\n"
                           and next CMD;
-                       my @vars = split(' ', $2);
+                       my @vars = split(' ', $2 || '');
                        my $h = eval { PadWalker::peek_my(($1 || 0) + 1) };
                        $@ and $@ =~ s/ at .*//, &warn($@), next CMD;
                        my $savout = select($OUT);