From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 Apr 2002 13:34:11 +0000 (+0000)
Subject: Win32 pacifying from mjd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=776b00a7bc9dd00537866358a47be2e07a70a235;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>;