From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 1 Dec 1998 07:55:11 +0000 (+0200)
Subject: Debugger 'v' command
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c53b6d0e08c7522733c6e7c039402fd2e4e40cc;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 03f9d44..4d05e6d 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 {