diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-09-18 11:58:59 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-19 04:46:12 +0000 |
| commit | f338af47923def4d535e1fd32a0aeee66b1f733b (patch) | |
| tree | e01c3ca58dbfa3f1c56ea70f6cfce4ed25c7274e /lib/dumpvar.pl | |
| parent | f0d19b68a1c8d6c2dc3a5b85d4616bcdecd73ff9 (diff) | |
| download | perl-f338af47923def4d535e1fd32a0aeee66b1f733b.tar.gz | |
dumpvar.pl broken
Message-ID: <20030919015858.GA22503@math.berkeley.edu>
p4raw-id: //depot/perl@21284
Diffstat (limited to 'lib/dumpvar.pl')
| -rw-r--r-- | lib/dumpvar.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index 5c9100b65a..474818a657 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: |