From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Mar 2002 14:33:09 +0000 (+0000)
Subject: minor Tie::File test patch to make win32 happier, from mjd.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4a5e1bcc470d8f87f5725fb78c74d2a5d454a2f;p=p5sagit%2Fp5-mst-13.2.git

minor Tie::File test patch to make win32 happier, from mjd.

p4raw-id: //depot/perl@15360
---

diff --git a/lib/Tie/File/t/30_defer.t b/lib/Tie/File/t/30_defer.t
index 4c32825..a684d67 100644
--- a/lib/Tie/File/t/30_defer.t
+++ b/lib/Tie/File/t/30_defer.t
@@ -223,6 +223,7 @@ undef $o;
 untie @a;
 # (79) We can't use check_contents any more, because the object is dead
 open F, "< $file" or die;
+binmode F;
 { local $/ ; $z = <F> }
 close F;
 my $x = join("$:", qw(flushed recordB recordE