diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Dumpvalue.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Dumpvalue.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Dumpvalue.pm b/Master/tlpkg/tlperl/lib/Dumpvalue.pm index af16b1dd088..f3cde0b8960 100644 --- a/Master/tlpkg/tlperl/lib/Dumpvalue.pm +++ b/Master/tlpkg/tlperl/lib/Dumpvalue.pm @@ -1,7 +1,7 @@ use 5.006_001; # for (defined ref) and $#$v and our package Dumpvalue; use strict; -our $VERSION = '1.13'; +our $VERSION = '1.16'; our(%address, $stab, @stab, %stab, %subs); # documentation nits, handle complex data structures better by chromatic @@ -230,14 +230,14 @@ sub unwrap { if ($#$v >= 0) { $short = $sp . "0..$#{$v} " . join(" ", - map {exists $v->[$_] ? $self->stringify($v->[$_]) : "empty"} ($[..$tArrayDepth) + map {exists $v->[$_] ? $self->stringify($v->[$_]) : "empty"} (0..$tArrayDepth) ) . "$shortmore"; } else { $short = $sp . "empty array"; } (print "$short\n"), return if length $short <= $self->{compactDump}; } - for my $num ($[ .. $tArrayDepth) { + for my $num (0 .. $tArrayDepth) { return if $DB::signal and $self->{stopDbSignal}; print "$sp$num "; if (exists $v->[$num]) { @@ -541,7 +541,7 @@ I<as is>. If C<quoteHighBit> is set, they will be quoted. =item C<usageOnly> -rudimentally per-package memory usage dump. If set, +rudimentary per-package memory usage dump. If set, C<dumpvars> calculates total size of strings in variables in the package. =item unctrl |