diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-06 12:01:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-06 12:01:36 +0000 |
| commit | 0dfa9f3773ecb4814239b03fbd8b84e449a97c6b (patch) | |
| tree | bde5f90bb7bf87384ded0f853ff474c934aa957c /ext/Digest | |
| parent | 621b0f8dc4f329f12773e6204726adf3d394c032 (diff) | |
| download | perl-0dfa9f3773ecb4814239b03fbd8b84e449a97c6b.tar.gz | |
Upgrade to Digest::MD5 2.20.
p4raw-id: //depot/perl@16427
Diffstat (limited to 'ext/Digest')
| -rw-r--r-- | ext/Digest/MD5/Changes | 13 | ||||
| -rw-r--r-- | ext/Digest/MD5/MD5.pm | 2 | ||||
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 18 | ||||
| -rw-r--r-- | ext/Digest/MD5/t/md5-aaa.t | 2 |
4 files changed, 24 insertions, 11 deletions
diff --git a/ext/Digest/MD5/Changes b/ext/Digest/MD5/Changes index 896ff5ec2c..a100886e79 100644 --- a/ext/Digest/MD5/Changes +++ b/ext/Digest/MD5/Changes @@ -1,3 +1,16 @@ +2002-05-05 Gisle Aas <gisle@ActiveState.com> + + Release 2.20 + + More synchronization with tweaks Jarkko have done to the + bleadperl test suite. This time various EBCDIC hacks. + + Outside PERL_CORE the md5-aaa.t test loaded the wrong version of + the module (and would fail if no previous Digest::MD5 was installed). + Patch by Mike Stok <mike@stok.co.uk> + + + 2002-05-01 Gisle Aas <gisle@ActiveState.com> Release 2.19 diff --git a/ext/Digest/MD5/MD5.pm b/ext/Digest/MD5/MD5.pm index 18dc1f6598..372e007cb7 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.19'; # $Date: 2002/05/02 02:40:12 $ +$VERSION = '2.20'; # $Date: 2002/05/06 05:15:09 $ require Exporter; *import = \&Exporter::import; diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t index 5d25322f35..c020559eba 100644 --- a/ext/Digest/MD5/t/files.t +++ b/ext/Digest/MD5/t/files.t @@ -23,17 +23,17 @@ my $EXPECT; if (ord "A" == 193) { # EBCDIC $EXPECT = <<EOT; -a1ee2b18d1e05bdde3a93009e7f9dfda Changes -5a591a47e8c40fe4b78c744111511c45 README -c9c83e6dbad5f41722338e67d4428077 MD5.pm -4850753428db9422e8e5f97b401d5a13 MD5.xs -276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt +b362148b17a451f0d81e0ebb2487756e Changes +5a591a47e8c40fe4b78c744111511c45 README +3157e2d2e27dacddea7c54efddc32520 MD5.pm +4850753428db9422e8e5f97b401d5a13 MD5.xs +276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt EOT } else { $EXPECT = <<EOT; -3866f3543ef41421c6aed3f198e2e9f5 Changes +0106b67df0dbf9f4d65e9fc04907745b Changes 3519f3d02c7c91158f732f0f00064657 README -01cd8fd24bd46ce1db53074d2af6001a MD5.pm +88c35ca46c7e8069fb5ae00c091c98d6 MD5.pm 1be293491bba726810f8e87671ee0328 MD5.xs 754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt EOT @@ -74,9 +74,9 @@ for (split /^/, $EXPECT) { next; } if ($ENV{EBCDIC_MD5SUM}) { - use Encode 'from_to'; + require Encode; my $data = cat_file($file); - from_to($data, 'latin1', 'cp1047'); + Encode::from_to($data, 'latin1', 'cp1047'); print md5_hex($data), " $base\n"; next; } diff --git a/ext/Digest/MD5/t/md5-aaa.t b/ext/Digest/MD5/t/md5-aaa.t index 3069a06089..1ccd59b749 100644 --- a/ext/Digest/MD5/t/md5-aaa.t +++ b/ext/Digest/MD5/t/md5-aaa.t @@ -1,6 +1,6 @@ BEGIN { - chdir 't' if -d 't'; if ($ENV{PERL_CORE}) { + chdir 't' if -d 't'; @INC = '../lib'; } } |