Make filecomp test work on CRLF platforms by adding binmode.

p4raw-id: //depot/perlio@10363

1 files changed, 3 insertions, 0 deletions

diff --git a/t/lib/filecomp.t b/t/lib/filecomp.t
index b841d872de..9e0751be80 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);