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.