From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 7 Jun 2006 17:36:32 +0000 (+0000)
Subject: The binmode in t/iop/utf8.t doesn't need to be conditional on ${^OPEN}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11fa0b78eca9aeb73e60c3c38453c695768dc818;p=p5sagit%2Fp5-mst-13.2.git

The binmode in t/iop/utf8.t doesn't need to be conditional on ${^OPEN}

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

diff --git a/t/io/utf8.t b/t/io/utf8.t
index 532ea7f..22f392a 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -118,9 +118,7 @@ close(F);
     is( $x, chr(300).chr(130), sprintf('(%vd)', $x) );
 
     open F, ">", "a" or die $!;
-    if (${^OPEN} =~ /:utf8/) {
-        binmode(F, ":bytes:");
-    }
+    binmode(F, ":bytes:");
 
     # Now let's make it suffer.
     my $w;