This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Debugger 'v' command
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 1 Dec 1998 07:55:11 +0000 (09:55 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 1 Dec 1998 08:21:38 +0000 (08:21 +0000)
To: perl5-porters@perl.org (Mailing list Perl5)
Message-ID: <MLIST_199812010534.AAA21371@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@2424

lib/perl5db.pl

index 03f9d44..4d05e6d 100644 (file)
@@ -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 {