As using -C to turn on utf8 IO is equivalent to the open pragma,

change 25925 had the side effect of breaking ext/Encode/t/perlio.t
       Fixed by opening with :bytes.

p4raw-id: //depot/perl@26067

diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t
index 012bbe6..c3330ef 100644 (file)
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@ -167,7 +167,7 @@ SKIP:{
        open  $fh, ">:encoding($utf_nobom)", $sfile or die "$sfile : $!";
        print $fh $str;
        close $fh;
-       open my $fh, "<", $sfile or die "$sfile : $!";
+       open my $fh, "<:bytes", $sfile or die "$sfile : $!";
        read $fh, my $cmp, -s $sfile;
        close $fh;
        use bytes ();