From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 May 2002 02:47:38 +0000 (+0000)
Subject: Upgrade to Digest::MD5 2.19.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e2b0cd5b0db692085efbcbe1098082cbcb19f50;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Digest::MD5 2.19.

p4raw-id: //depot/perl@16324
---

diff --git a/ext/Digest/MD5/Changes b/ext/Digest/MD5/Changes
index 50de82f..896ff5e 100644
--- a/ext/Digest/MD5/Changes
+++ b/ext/Digest/MD5/Changes
@@ -1,5 +1,14 @@
 2002-05-01   Gisle Aas <gisle@ActiveState.com>
 
+   Release 2.19
+
+   One more test suite update from Jarkko to sync it
+   even better with bleadperl.
+
+
+
+2002-05-01   Gisle Aas <gisle@ActiveState.com>
+
    Release 2.18
 
    Changes #12954 and #16173 from bleadperl.  Documentation typo fix
diff --git a/ext/Digest/MD5/MD5.pm b/ext/Digest/MD5/MD5.pm
index 93e13e6..18dc1f6 100644
--- a/ext/Digest/MD5/MD5.pm
+++ b/ext/Digest/MD5/MD5.pm
@@ -3,7 +3,7 @@ package Digest::MD5;
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '2.18';  # $Date: 2002/05/01 23:30:28 $
+$VERSION = '2.19';  # $Date: 2002/05/02 02:40:12 $
 
 require Exporter;
 *import = \&Exporter::import;
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t
index 5fcb035..e98256e 100644
--- a/ext/Digest/MD5/t/files.t
+++ b/ext/Digest/MD5/t/files.t
@@ -25,9 +25,9 @@ if (ord "A" == 193) { # EBCDIC
 EOT
 } else {
     $EXPECT = <<EOT;
-23cafa2de11474f0df8f808cc588bcc9  Changes
+3866f3543ef41421c6aed3f198e2e9f5  Changes
 3519f3d02c7c91158f732f0f00064657  README
-0268931475ae2a2e843ff58504cfa3f0  MD5.pm
+01cd8fd24bd46ce1db53074d2af6001a  MD5.pm
 1be293491bba726810f8e87671ee0328  MD5.xs
 754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
 EOT
@@ -143,7 +143,6 @@ sub digest_file
     #print "$file $method\n";
 
     open(FILE, $file) or die "Can't open $file: $!";
-    binmode(FILE);
     my $digest = Digest::MD5->new->addfile(*FILE)->$method();
     close(FILE);
 
@@ -155,7 +154,6 @@ sub cat_file
     my($file) = @_;
     local $/;  # slurp
     open(FILE, $file) or die "Can't open $file: $!";
-    binmode(FILE);
     my $tmp = <FILE>;
     close(FILE);
     $tmp;