From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 7 Apr 2001 08:38:04 +0000 (+0000)
Subject: Digests in lib/md5-file.t are for text files _without_ CRLF i.e. UNIX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9070af9fb87632d66faa82c00ab8b5cf20323a2b;p=p5sagit%2Fp5-mst-13.2.git

Digests in lib/md5-file.t are for text files _without_ CRLF i.e. UNIX
style. So don't use binmode() on the handles so that Win32 etc. see
same sequence and produce same digests.

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

diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t
index 8613271..ca9cac7 100644
--- a/t/lib/md5-file.t
+++ b/t/lib/md5-file.t
@@ -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;