From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 9 Nov 2005 20:53:29 +0000 (+0000)
Subject: As using -C to turn on utf8 IO is equivalent to the open pragma,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ceb1aeda7d2a3a96426ccfbd724ec7c64f052923;p=p5sagit%2Fp5-mst-13.2.git

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.

p4raw-id: //depot/perl@26065
---

diff --git a/t/io/utf8.t b/t/io/utf8.t
index acfb239..532ea7f 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -152,18 +152,24 @@ open F, ">:utf8", "a" or die $!;
 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 $!;