From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 18 Sep 2003 18:58:59 +0000 (-0700)
Subject: dumpvar.pl broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f338af47923def4d535e1fd32a0aeee66b1f733b;p=p5sagit%2Fp5-mst-13.2.git

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