Change 13518 by jhi@alpha on 2001/12/07 15:24:32
Allow several arguments to display().
Affected files ...
.... //depot/perl/t/test.pl#16 edit
Differences ...
==== //depot/perl/t/test.pl#16 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Fri Dec 7 08:30:06 2001
+++ perl/t/test.pl Fri Dec 7 08:30:06 2001
@@ -265,7 +265,7 @@
# A way to display scalars containing control characters and Unicode.
sub display {
- join("", map { $_ > 255 ? sprintf("\\x{%x}", $_) : chr($_) =~ /[[:cntrl:]]/ ?
sprintf("\\%03o", $_) : chr($_) } unpack("U*", $_[0]));
+ map { join("", map { $_ > 255 ? sprintf("\\x{%x}", $_) : chr($_) =~ /[[:cntrl:]]/
+? sprintf("\\%03o", $_) : chr($_) } unpack("U*", $_) } @_;
}
End of Patch.
