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