mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Upgrade to Digest::MD5 2.19.

Browse Source 
p4raw-id: //depot/perl@16324
This commit is contained in:
Jarkko Hietaniemi 2002-05-02 02:47:38 +00:00
parent fb4ae831ee
commit 7e2b0cd5b0
3 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ext/Digest/MD5/Changes
View File

@ -1,3 +1,12 @@
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

2
ext/Digest/MD5/MD5.pm
View File

@ -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;

6
ext/Digest/MD5/t/files.t
View File

@ -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;