CRLF platform issue with io/utf8 fix.

p4raw-id: //depot/perlio@8225

diff --git a/t/io/utf8.t b/t/io/utf8.t
index ea19a05..04554e7 100755 (executable)
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -76,7 +76,7 @@ print "ok 15\n";
 close F;
 
 open F, ">:utf8", 'a' or die $!;
-
+binmode(F);  # we write a "\n" and then tell() - avoid CRLF issues.
 print F $a;
 my $y;
 { my $x = tell(F);