From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 9 Nov 2005 21:52:03 +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=38aa2d1871d776152eb9b958f87dbfa1f4c07399;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 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
--- 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 ();