From 347a28376189da3691afc4a35abb2306ca1b1ec6 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 28 Mar 2002 18:17:08 +0000 Subject: binmode :bytes, again. p4raw-id: //depot/perl@15587 --- lib/utf8.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/utf8.t b/lib/utf8.t index aaa06853f1..19d88e53cf 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -145,7 +145,7 @@ plan tests => 94; # Now we do the real byte sequences that are valid UTF8 (map { ["the utf8 sequence for chr $_->[0]", - qq(\$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/], + qq{\$a = "$_->[1]"; \$b = show \$a}, qr/^>$_->[2]<$/], ["no utf8; for the utf8 sequence for chr $_->[0]", qq(no utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/], ["use utf8; for the utf8 sequence for chr $_->[0]", @@ -165,6 +165,7 @@ BANG foreach (@tests) { my ($why, $prog, $expect) = @$_; open P, ">$progfile" or die "Can't open '$progfile': $!"; + binmode(P, ":bytes"); print P $show, $prog, '; print $b' or die "Print to 'progfile' failed: $!"; close P or die "Can't close '$progfile': $!"; -- cgit v1.2.1