Re: Why t/lib/extutils.t is failing (was Re: [PATCH] Re: [PATCH] Re: [SPAM] Re:...

[p5sagit/p5-mst-13.2.git] / t / lib / filecomp.t

diff --git a/t/lib/filecomp.t b/t/lib/filecomp.t
index b841d87..167a46a 100644 (file)
--- 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,13 +82,14 @@ eval {
     local $/; #slurp
     my $fh;
     open($fh,'README');
+    binmode($fh);
     my $data = <$fh>;
     print $tfh $data;
     close($fh);
   }
   seek($tfh,0,0);
-  $donetests[0] = compare($tfh,'README');
-  $donetests[1] = compare("$filename",'README');
+  $donetests[0] = compare($tfh, 'README');
+  $donetests[1] = compare($filename, 'README');
   unlink0($tfh,$filename);
 };
 print "# problems when testing with a tempory file\n" if $@;