From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 1 Jun 2001 10:02:17 +0000 (+0000)
Subject: Make filecomp test work on CRLF platforms by adding binmode.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5a04bd3608b6c4e986b3e42b05c62a441470936;p=p5sagit%2Fp5-mst-13.2.git

Make filecomp test work on CRLF platforms by adding binmode.

p4raw-id: //depot/perlio@10363
---

diff --git a/t/lib/filecomp.t b/t/lib/filecomp.t
index b841d87..9e0751b 100644
--- a/t/lib/filecomp.t
+++ b/t/lib/filecomp.t
@@ -50,6 +50,7 @@ print "ok 8\n";
 {
   my $fh;
   open ($fh, "<README") or print "not ";
+  binmode($fh);
   print "not " unless compare($fh,"README") == 0;
   print "ok 9\n";
   close $fh;
@@ -59,6 +60,7 @@ print "ok 8\n";
 {
   my $fh;
   open ($fh, "<README") or print "not ";
+  binmode($fh);
   print "not " unless compare_text($fh,"TEST") == 1;
   print "ok 10\n";
   close $fh;
@@ -80,6 +82,7 @@ eval {
     local $/; #slurp
     my $fh;
     open($fh,'README');
+    binmode($fh);
     my $data = <$fh>;
     print $tfh $data;
     close($fh);