dumpvar.pl broken

Message-ID: <20030919015858.GA22503@math.berkeley.edu>

p4raw-id: //depot/perl@21284

diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl
index 5c9100b..474818a 100644 (file)
--- a/lib/dumpvar.pl
+++ b/lib/dumpvar.pl
@@ -30,7 +30,8 @@ sub main::dumpValue {
   local $^W=0;
   (print "undef\n"), return unless defined $_[0];
   (print &stringify($_[0]), "\n"), return unless ref $_[0];
-  dumpvar::unwrap($_[0],0, $_[1]);
+  push @_, -1 if @_ == 1;
+  dumpvar::unwrap($_[0], 0, $_[1]);
 }
 
 # This one is good for variable names: