Change 34854 by [EMAIL PROTECTED] on 2008/11/16 20:53:15
Sync up with Digest-MD5-2.38 from CPAN
Affected files ...
... //depot/perl/ext/Digest/MD5/Changes#19 edit
... //depot/perl/ext/Digest/MD5/MD5.pm#24 edit
... //depot/perl/ext/Digest/MD5/MD5.xs#26 edit
... //depot/perl/ext/Digest/MD5/Makefile.PL#14 edit
... //depot/perl/ext/Digest/MD5/t/files.t#48 edit
Differences ...
==== //depot/perl/ext/Digest/MD5/Changes#19 (text) ====
Index: perl/ext/Digest/MD5/Changes
--- perl/ext/Digest/MD5/Changes#18~34818~ 2008-11-12 01:40:43.000000000
-0800
+++ perl/ext/Digest/MD5/Changes 2008-11-16 12:53:15.000000000 -0800
@@ -1,3 +1,16 @@
+2008-11-14 Gisle Aas <[EMAIL PROTECTED]>
+
+ Release 2.38
+
+ The 2.37 tarball was infected by various '._*' files.
+ Thank you, Mac OS X!
+
+ Applied warning fix from Geoff Richards [RT#19643]
+
+ Applied compatiblity fix from Alexandr Ciornii [RT#30348]
+
+
+
2008-11-12 Gisle Aas <[EMAIL PROTECTED]>
Release 2.37
==== //depot/perl/ext/Digest/MD5/MD5.pm#24 (text) ====
Index: perl/ext/Digest/MD5/MD5.pm
--- perl/ext/Digest/MD5/MD5.pm#23~34818~ 2008-11-12 01:40:43.000000000
-0800
+++ perl/ext/Digest/MD5/MD5.pm 2008-11-16 12:53:15.000000000 -0800
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = '2.37';
+$VERSION = '2.38';
require Exporter;
*import = \&Exporter::import;
==== //depot/perl/ext/Digest/MD5/MD5.xs#26 (text) ====
Index: perl/ext/Digest/MD5/MD5.xs
--- perl/ext/Digest/MD5/MD5.xs#25~34818~ 2008-11-12 01:40:43.000000000
-0800
+++ perl/ext/Digest/MD5/MD5.xs 2008-11-16 12:53:15.000000000 -0800
@@ -709,6 +709,11 @@
if (len == 11 && memEQ("Digest::MD5", data, 11)) {
msg = "probably called as class method";
}
+ else if (SvROK(ST(0))) {
+ SV* sv = SvRV(ST(0));
+ if (SvOBJECT(sv) && strEQ(HvNAME(SvSTASH(sv)),
"Digest::MD5"))
+ msg = "probably called as method";
+ }
}
if (msg) {
const char *f = (ix == F_BIN) ? "md5" :
==== //depot/perl/ext/Digest/MD5/Makefile.PL#14 (text) ====
Index: perl/ext/Digest/MD5/Makefile.PL
--- perl/ext/Digest/MD5/Makefile.PL#13~26211~ 2005-11-26 03:50:17.000000000
-0800
+++ perl/ext/Digest/MD5/Makefile.PL 2008-11-16 12:53:15.000000000 -0800
@@ -1,6 +1,5 @@
#!perl -w
-BEGIN { require 5.006 }
use strict;
use Config qw(%Config);
use ExtUtils::MakeMaker;
@@ -21,12 +20,14 @@
push(@extra, 'INSTALLDIRS' => 'perl') if $] >= 5.008;
push(@extra, 'MAN3PODS' => {}) if $PERL_CORE; # Pods built by installman.
+push @extra, 'LICENSE' => 'perl' if $ExtUtils::MakeMaker::VERSION >= "6.30";
WriteMakefile(
'NAME' => 'Digest::MD5',
'VERSION_FROM' => 'MD5.pm',
'PREREQ_PM' => { 'File::Spec' => 0,
'Digest::base' => '1.00',
+ 'XSLoader' => 0,
},
@extra,
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
==== //depot/perl/ext/Digest/MD5/t/files.t#48 (text) ====
Index: perl/ext/Digest/MD5/t/files.t
--- perl/ext/Digest/MD5/t/files.t#47~34818~ 2008-11-12 01:40:43.000000000
-0800
+++ perl/ext/Digest/MD5/t/files.t 2008-11-16 12:53:15.000000000 -0800
@@ -20,27 +20,27 @@
my $EXPECT;
if (ord "A" == 193) { # EBCDIC
$EXPECT = <<EOT;
-f383935aa6f80a5eada3a365e0240db5 Changes
+0b24bb575ac412fcb1754132d1a61996 Changes
11e8028ee426273db6b6db270a8bb38c README
-4c1cbf9fd2ca3611f8f76c0bc559bb91 MD5.pm
-a6763f297e6346a0c541de105819b01c MD5.xs
+9fe023c06a5fe656107519eb59dd51ab MD5.pm
+6e556382813f67120863f4f91b7fcdc2 MD5.xs
276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt
EOT
} elsif ("\n" eq "\015") { # MacOS
$EXPECT = <<EOT;
-531c4466c0d2e510628584f47fc5a589 Changes
+cac133d6a295c650bd31af946919c72c Changes
c95549c6c5e1e1c078b27042f1dc850f README
-58437b1015d43f47d78c37a2e06bc70c MD5.pm
-dd630942214a791a56d18f477f8e423e MD5.xs
+95fe334a197cbb038728ea17fae9896d MD5.pm
+7aa380c810bc7c1a0bec22cf32bc50d4 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
} else {
# This is the output of: 'md5sum Changes README MD5.pm MD5.xs rfc1321.txt'
$EXPECT = <<EOT;
-b3fdcedb2f50b051c2a9a9009b36ae57 Changes
+1a3a086dfdcf13dd940ac88e0f57aad8 Changes
c95549c6c5e1e1c078b27042f1dc850f README
-58437b1015d43f47d78c37a2e06bc70c MD5.pm
-dd630942214a791a56d18f477f8e423e MD5.xs
+95fe334a197cbb038728ea17fae9896d MD5.pm
+7aa380c810bc7c1a0bec22cf32bc50d4 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
}
End of Patch.
