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

[Nicholas Clark]

Change 26065 by [EMAIL PROTECTED] on 2005/11/09 20:53:29

        As using -C to turn on utf8 IO is equivalent to the open pragma,
        change 25925 had the side effect of breaking t/io/utf8.t
        Fixed by adding the missing binmode()s.

Affected files ...

... //depot/perl/t/io/utf8.t#41 edit

Differences ...

==== //depot/perl/t/io/utf8.t#41 (xtext) ====
Index: perl/t/io/utf8.t
--- perl/t/io/utf8.t#40~26064~  Wed Nov  9 12:23:28 2005
+++ perl/t/io/utf8.t    Wed Nov  9 12:53:29 2005
@@ -152,18 +152,24 @@
 print F $a;
 close F;
 open F, ">>", "a" or die $!;
+binmode(F, ":bytes");
 print F chr(130)."\n";
 close F;
 
 open F, "<", "a" or die $!;
+binmode(F, ":bytes");
 $x = <F>; chomp $x;
-is( $x, $chr );
+SKIP: {
+    skip("Defaulting to UTF-8 output means that we can't generate a mangled 
file")
+       if $UTF8_OUTPUT;
+    is( $x, $chr );
+}
 
 # Now we have a deformed file.
 
 SKIP: {
     if (ord('A') == 193) {
-       skip( "EBCDIC doesn't complain" );
+       skip("EBCDIC doesn't complain", 2);
     } else {
        my @warnings;
        open F, "<:utf8", "a" or die $!;
End of Patch.