From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 17 Jun 2002 00:47:43 +0000 (+0000)
Subject: Missing hunk from #15363.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b6f4737ce959f221803c3c982175b73f56c125f1;p=p5sagit%2Fp5-mst-13.2.git

Missing hunk from #15363.

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index c770b52..c905678 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -980,7 +980,28 @@ EOP
 			} 
 			$pretype = [$1];
 			next CMD; };
-	    $cmd =~ /^n$/ && do {
+                   $cmd =~ /^y\s*(\d*)\s*(.*)/ && do {
+                       eval { require PadWalker; PadWalker->VERSION(0.08) }
+                         or &warn($@ =~ /locate/
+                            ? "PadWalker module not found - please install\n"
+                            : $@)
+                          and next CMD;
+                       do 'dumpvar.pl' unless defined &main::dumpvar;
+                       defined &main::dumpvar
+                          or print $OUT "dumpvar.pl not available.\n"
+                          and next CMD;
+                       my @vars = split(' ', $2);
+                       my $h = eval { PadWalker::peek_my(($1 || 0) + 1) };
+                       $@ and $@ =~ s/ at .*//, &warn($@), next CMD;
+                       my $savout = select($OUT);
+                       dumpvar::dumplex($_, $h->{$_}, 
+                                       defined $option{dumpDepth}
+                                       ? $option{dumpDepth} : -1,
+                                       @vars)
+                           for sort keys %$h;
+                       select($savout);
+                       next CMD; };
+                   $cmd =~ /^n$/ && do {
 		        end_report(), next CMD if $finished and $level <= 1;
 			$single = 2;
 			$laststep = $cmd;