diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-12-01 09:55:11 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-01 08:21:38 +0000 |
| commit | 2c53b6d0e08c7522733c6e7c039402fd2e4e40cc (patch) | |
| tree | 7e1655a42fd02ceeaa2e96f30d067603a656c429 /lib | |
| parent | 956f0479a4089b5220380593b27a28496a4a3e5f (diff) | |
| download | perl-2c53b6d0e08c7522733c6e7c039402fd2e4e40cc.tar.gz | |
Debugger 'v' command
To: perl5-porters@perl.org (Mailing list Perl5)
Message-ID: <MLIST_199812010534.AAA21371@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@2424
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 03f9d44d4e..4d05e6d930 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1752,13 +1752,7 @@ sub list_versions { } $version{$file} .= $INC{$file}; } - do 'dumpvar.pl' unless defined &main::dumpValue; - if (defined &main::dumpValue) { - local $frame = 0; - &main::dumpValue(\%version); - } else { - print $OUT "dumpvar.pl not available.\n"; - } + dumpit($OUT,\%version); } sub sethelp { |