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 (file)
--- 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