Change 26067 by [EMAIL PROTECTED] on 2005/11/09 21:52:03

        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.

Affected files ...

... //depot/perl/ext/Encode/t/perlio.t#14 edit

Differences ...

==== //depot/perl/ext/Encode/t/perlio.t#14 (text) ====
Index: perl/ext/Encode/t/perlio.t
--- perl/ext/Encode/t/perlio.t#13~20432~        Fri Aug  1 06:45:10 2003
+++ perl/ext/Encode/t/perlio.t  Wed Nov  9 13:52:03 2005
@@ -167,7 +167,7 @@
        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 ();
End of Patch.

Reply via email to