This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
d918263
)
typo in change#5839
author
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 20 Mar 2000 21:04:42 +0000
(21:04 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 20 Mar 2000 21:04:42 +0000
(21:04 +0000)
p4raw-link: @5839 on //depot/perl:
d918263624f69db4f9575643879bfa5b4453117e
p4raw-id: //depot/perl@5840
lib/Dumpvalue.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Dumpvalue.pm
b/lib/Dumpvalue.pm
index
617494a
..
475f4ff
100644
(file)
--- a/
lib/Dumpvalue.pm
+++ b/
lib/Dumpvalue.pm
@@
-228,7
+228,7
@@
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"} ($[..$tArrayDepth)
) . "$shortmore";
} else {
$short = $sp . "empty array";