projects
/
p5sagit/p5-mst-13.2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
3a94e50
)
The binmode in t/iop/utf8.t doesn't need to be conditional on ${^OPEN}
Nicholas Clark [Wed, 7 Jun 2006 17:36:32 +0000 (17:36 +0000)]
p4raw-id: //depot/perl@28369
t/io/utf8.t
patch
|
blob
|
blame
|
history
diff --git
a/t/io/utf8.t
b/t/io/utf8.t
index
532ea7f
..
22f392a
100755
(executable)
--- 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;