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 (file)
--- 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;