diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 02:47:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-02 02:47:38 +0000 |
| commit | 7e2b0cd5b0db692085efbcbe1098082cbcb19f50 (patch) | |
| tree | 0fd47f433591211083af375e491ef1ecafadd380 /ext | |
| parent | fb4ae831ee98c6c39c501bff0ac47785712dc4bb (diff) | |
| download | perl-7e2b0cd5b0db692085efbcbe1098082cbcb19f50.tar.gz | |
Upgrade to Digest::MD5 2.19.
p4raw-id: //depot/perl@16324
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Digest/MD5/Changes | 9 | ||||
| -rw-r--r-- | ext/Digest/MD5/MD5.pm | 2 | ||||
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 6 |
3 files changed, 12 insertions, 5 deletions
diff --git a/ext/Digest/MD5/Changes b/ext/Digest/MD5/Changes index 50de82fd99..896ff5ec2c 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 93e13e6048..18dc1f6598 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 5fcb035e2b..e98256ec94 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; |