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 (file)
--- 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 {