summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-06-07 17:36:32 +0000
committerNicholas Clark <nick@ccl4.org>2006-06-07 17:36:32 +0000
commit11fa0b78eca9aeb73e60c3c38453c695768dc818 (patch)
tree7f93bf66340c94d04fb23be667824f45b7e5aee3 /t
parent3a94e501dbe10762051bcbebb08de1b44fba9bf2 (diff)
downloadperl-11fa0b78eca9aeb73e60c3c38453c695768dc818.tar.gz
The binmode in t/iop/utf8.t doesn't need to be conditional on ${^OPEN}
p4raw-id: //depot/perl@28369
Diffstat (limited to 't')
-rwxr-xr-xt/io/utf8.t4
1 files changed, 1 insertions, 3 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t
index 532ea7fb5e..22f392ac78 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;