Win32 pacifying from mjd.

p4raw-id: //depot/perl@15746

diff --git a/lib/Tie/File/t/26_twrite.t b/lib/Tie/File/t/26_twrite.t
index e3d03a0..1d9073c 100644 (file)
--- a/lib/Tie/File/t/26_twrite.t
+++ b/lib/Tie/File/t/26_twrite.t
@@ -290,6 +290,7 @@ sub try {
   undef $o; untie @lines;
 
   open F, "< $file" or die "Couldn't open file $file: $!";
+  binmode F;
   my $actual;
   { local $/;
     $actual = <F>;