projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f0d19b6
)
dumpvar.pl broken
author
Ilya Zakharevich
<ilya@math.berkeley.edu>
Thu, 18 Sep 2003 18:58:59 +0000
(11:58 -0700)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 19 Sep 2003 04:46:12 +0000
(
04:46
+0000)
Message-ID: <
20030919015858
.GA22503@math.berkeley.edu>
p4raw-id: //depot/perl@21284
lib/dumpvar.pl
patch
|
blob
|
history
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: