Change 17291 by jhi@alpha on 2002/06/18 21:28:33
Debugger tweak from from Peter Scott.
Affected files ...
.... //depot/perl/lib/perl5db.pl#89 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#89 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#88~17265~ Sun Jun 16 17:53:49 2002
+++ perl/lib/perl5db.pl Tue Jun 18 14:28:33 2002
@@ -980,7 +980,7 @@
}
$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 @@
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);
End of Patch.
