diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-20 21:04:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-20 21:04:42 +0000 |
| commit | 13babf5cc224fc84f39c21258d24753e24517db3 (patch) | |
| tree | dcb9dd563068abbeb3bdb8763ceecae677c57e91 /lib/Dumpvalue.pm | |
| parent | d918263624f69db4f9575643879bfa5b4453117e (diff) | |
| download | perl-13babf5cc224fc84f39c21258d24753e24517db3.tar.gz | |
typo in change#5839
p4raw-link: @5839 on //depot/perl: d918263624f69db4f9575643879bfa5b4453117e
p4raw-id: //depot/perl@5840
Diffstat (limited to 'lib/Dumpvalue.pm')
| -rw-r--r-- | lib/Dumpvalue.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Dumpvalue.pm b/lib/Dumpvalue.pm index 617494aa15..475f4ff725 100644 --- 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"; |