diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-06-07 17:36:32 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-06-07 17:36:32 +0000 |
commit | 11fa0b78eca9aeb73e60c3c38453c695768dc818 (patch) | |
tree | 7f93bf66340c94d04fb23be667824f45b7e5aee3 /t | |
parent | 3a94e501dbe10762051bcbebb08de1b44fba9bf2 (diff) | |
download | perl-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-x | t/io/utf8.t | 4 |
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; |