Re: [PATCH] Tests for File::Compare

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

diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t
index b9c51e0..c786a5f 100644 (file)
--- a/t/lib/md5-file.t
+++ b/t/lib/md5-file.t
@@ -15,13 +15,13 @@ my $EXPECT;
 
 if (ord('A') == 193) { # EBCDIC
 $EXPECT = <<EOT;
-dcc1f89cf6144d81e5f9d291d9849ef1  ext/Digest/MD5/MD5.pm
-61debd0ec12e131e1ba220e2f3ad2d26  ext/Digest/MD5/MD5.xs
+95a81f17a8e6c2273aecac12d8c4cb90  ext/Digest/MD5/MD5.pm
+9cecc5dbb27bd64b98f61f558b4db378  ext/Digest/MD5/MD5.xs
 EOT
 } else { # ASCII
 $EXPECT = <<EOT;
-9e1d1183ff41717c91a563c41e08d672  ext/Digest/MD5/MD5.pm
-61debd0ec12e131e1ba220e2f3ad2d26  ext/Digest/MD5/MD5.xs
+3d0146bf194e4fe68733d00fba02a49e  ext/Digest/MD5/MD5.pm
+5526659171a63f532d990dd73791b60e  ext/Digest/MD5/MD5.xs
 EOT
 }
 
@@ -126,7 +126,9 @@ sub digest_file
     #print "$file $method\n";
 
     open(FILE, $file) or die "Can't open $file: $!";
-    binmode(FILE);
+# Digests avove are generated on UNIX without CRLF
+# so leave handles in text mode
+#    binmode(FILE);
     my $digest = Digest::MD5->new->addfile(*FILE)->$method();
     close(FILE);
 
@@ -138,7 +140,9 @@ sub cat_file
     my($file) = @_;
     local $/;  # slurp
     open(FILE, $file) or die "Can't open $file: $!";
-    binmode(FILE);
+# Digests avove are generated on UNIX without CRLF
+# so leave handles in text mode
+#    binmode(FILE);
     my $tmp = <FILE>;
     close(FILE);
     $tmp;