This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The binmode in t/iop/utf8.t doesn't need to be conditional on ${^OPEN}
authorNicholas Clark <nick@ccl4.org>
Wed, 7 Jun 2006 17:36:32 +0000 (17:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 7 Jun 2006 17:36:32 +0000 (17:36 +0000)
p4raw-id: //depot/perl@28369

t/io/utf8.t

index 532ea7f..22f392a 100755 (executable)
@@ -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;