diff options
| author | Peter Scott <Peter@PSDT.com> | 2002-03-15 10:19:21 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-16 17:54:49 +0000 |
| commit | 3a4b996c622ca8a2cd8d468317fb869865ee25b2 (patch) | |
| tree | 59e31c3a8851b5245c84995dabc5c6178d5d0029 /lib/perl5db.pl | |
| parent | a48ec845cbd27881b821dcb9bb80e52ba093c5f2 (diff) | |
| download | perl-3a4b996c622ca8a2cd8d468317fb869865ee25b2.tar.gz | |
Re: dumpvar.pl bug
Message-id: <4.3.2.7.2.20020315153302.00bac420@shell2.webquarry.com>
p4raw-id: //depot/perl@15258
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index e1ee5917e1..158510dfeb 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -827,7 +827,10 @@ EOP local $frame = 0; local $doret = -2; # must detect sigpipe failures - eval { &main::dumpvar($packname,@vars) }; + eval { &main::dumpvar($packname, + defined $option{dumpDepth} + ? $option{dumpDepth} : -1, + @vars) }; if ($@) { die unless $@ =~ /dumpvar print failed/; } |