From a4a5e1bcc470d8f87f5725fb78c74d2a5d454a2f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Mar 2002 14:33:09 +0000
Subject: [PATCH] minor Tie::File test patch to make win32 happier, from mjd.

p4raw-id: //depot/perl@15360
---
 lib/Tie/File/t/30_defer.t | 1 +
 1 file changed, 1 insertion(+)

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