From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 27 Mar 2002 22:48:39 +0000 (+0000)
Subject: binmode(FH, ":bytes") is the right way, methinks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b18b92ae9cb89a30a11cc76419a41bbb69e54c2;p=p5sagit%2Fp5-mst-13.2.git

binmode(FH, ":bytes") is the right way, methinks.

p4raw-id: //depot/perl@15559
---

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index bba6628..133388c 100644
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -16,7 +16,8 @@ my $utf = "utf$$";
 my $fail1 = "fail$$";
 my $russki = "koi8r$$";
 
-if (open(GRK, ">:raw", $grk)) {
+if (open(GRK, ">$grk")) {
+    binmode(GRK, ":bytes");
     # alpha beta gamma in ISO 8859-7
     print GRK "\xe1\xe2\xe3";
     close GRK or die "Could not close: $!";
@@ -34,7 +35,8 @@ if (open(GRK, ">:raw", $grk)) {
     close($i);
 }
 
-if (open(UTF, "<:raw", $utf)) {
+if (open(UTF, "<$utf")) {
+    binmode(UTF, ":bytes");
     if (ord('A') == 193) { # EBCDIC
 	# alpha beta gamma in UTF-EBCDIC Unicode (0x3b1 0x3b2 0x3b3)
 	print "not " unless <UTF> eq "\xb4\x58\xb4\x59\xb4\x62";
@@ -58,7 +60,8 @@ if (open(UTF, "<:raw", $utf)) {
     close($i);
 }
 
-if (open(GRK, "<:raw", $grk)) {
+if (open(GRK, "<$grk")) {
+    binmode(GRK, ":bytes");
     print "not " unless <GRK> eq "\xe1\xe2\xe3";
     print "ok 8\n";
     close GRK;