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