Win32 pacifying from mjd.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Apr 2002 13:34:11 +0000 (13:34 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Apr 2002 13:34:11 +0000 (13:34 +0000)
p4raw-id: //depot/perl@15746

lib/Tie/File/t/26_twrite.t

index e3d03a0..1d9073c 100644 (file)
@@ -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>;