Update Digest-MD5 to CPAN version 2.40
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 4 Jul 2010 15:46:01 +0000 (16:46 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 4 Jul 2010 19:07:38 +0000 (20:07 +0100)
  [DELTA]

  2010-07-03   Gisle Aas <gisle@ActiveState.com>

    Release 2.40

    Marc Pignat (1):
      Safer alignment test [RT#35823]

    Robin Barker (1):
      consting in new ext/

    Gisle Aas (1):
      Remove the MacOS branch of this test

Porting/Maintainers.pl
cpan/Digest-MD5/Changes
cpan/Digest-MD5/MD5.pm
cpan/Digest-MD5/MD5.xs
cpan/Digest-MD5/Makefile.PL
cpan/Digest-MD5/t/align.t
cpan/Digest-MD5/t/files.t
cpan/Digest-MD5/t/md5-aaa.t

index 5395d4b..95a15ec 100755 (executable)
@@ -467,7 +467,7 @@ use File::Glob qw(:case);
     'Digest::MD5' =>
        {
        'MAINTAINER'    => 'gaas',
-       'DISTRIBUTION'  => 'GAAS/Digest-MD5-2.39.tar.gz',
+       'DISTRIBUTION'  => 'GAAS/Digest-MD5-2.40.tar.gz',
        'FILES'         => q[cpan/Digest-MD5],
        'EXCLUDED'      => [ qw{rfc1321.txt} ],
        'UPSTREAM'      => undef,
index 277a27e..756716c 100644 (file)
@@ -1,3 +1,18 @@
+2010-07-03   Gisle Aas <gisle@ActiveState.com>
+
+   Release 2.40
+
+   Marc Pignat (1):
+      Safer alignment test [RT#35823]
+
+   Robin Barker (1):
+      consting in new ext/
+
+   Gisle Aas (1):
+      Remove the MacOS branch of this test
+
+
+
 2009-06-09   Gisle Aas <gisle@ActiveState.com>
 
    Release 2.39
index 4e2adbe..ca17ad4 100644 (file)
@@ -3,7 +3,7 @@ package Digest::MD5;
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '2.39';
+$VERSION = '2.40';
 
 require Exporter;
 *import = \&Exporter::import;
index a743b05..89e39d2 100644 (file)
@@ -694,7 +694,7 @@ md5(...)
        MD5Init(&ctx);
 
        if (DOWARN) {
-            char *msg = 0;
+            const char *msg = 0;
            if (items == 1) {
                if (SvROK(ST(0))) {
                     SV* sv = SvRV(ST(0));
index 0a3a016..f8fd182 100644 (file)
@@ -17,15 +17,21 @@ if ($^O eq 'VMS') {
 }
 
 push(@extra, 'INSTALLDIRS'  => 'perl') if $] >= 5.008;
-push @extra, 'LICENSE' => 'perl' if eval($ExtUtils::MakeMaker::VERSION) >= "6.30";
 
 WriteMakefile(
     'NAME'        => 'Digest::MD5',
     'VERSION_FROM' => 'MD5.pm',
+    'ABSTRACT'     => 'Perl interface to the MD-5 algorithm',
+    'AUTHOR'       => 'Gisle Aas <gisle@activestate.com>',
+    'LICENSE'      => 'perl',
+    'MIN_PERL_VERSION' => 5.006,
     'PREREQ_PM'    => { 'File::Spec' => 0,
                        'Digest::base' => '1.00',
                        'XSLoader' => 0,
                      },
+    'META_MERGE'   => {
+        repository => 'http://github.com/gisle/digest-md5',
+    },
     @extra,
     'dist'         => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
 );
@@ -73,8 +79,8 @@ sub free_u32_alignment
 int main(int argc, char** argv, char** env)
 {
 #if BYTEORDER == 0x1234 || BYTEORDER == 0x4321
-    U8 buf[] = "\0\0\0\1\0\0\0\0";
-    U32 *up;
+    volatile U8 buf[] = "\0\0\0\1\0\0\0\0";
+    volatile U32 *up;
     int i;
 
     if (sizeof(U32) != 4) {
@@ -144,3 +150,25 @@ EOT
     print "signal $rc\n" if $rc && $rc < 0x80;
     return 0;
 }
+
+BEGIN {
+    # compatibility with older versions of MakeMaker
+    my $developer = -d ".git";
+    my %mm_req = (
+        LICENCE => 6.31,
+        META_MERGE => 6.45,
+        META_ADD => 6.45,
+        MIN_PERL_VERSION => 6.48,
+    );
+    undef(*WriteMakefile);
+    *WriteMakefile = sub {
+        my %arg = @_;
+        for (keys %mm_req) {
+            unless (eval { ExtUtils::MakeMaker->VERSION($mm_req{$_}) }) {
+                warn "$_ $@" if $developer;
+                delete $arg{$_};
+            }
+        }
+        ExtUtils::MakeMaker::WriteMakefile(%arg);
+    };
+}
index bb12246..90dfe80 100644 (file)
@@ -1,3 +1,10 @@
+BEGIN {
+       if ($ENV{PERL_CORE}) {
+               chdir 't' if -d 't';
+               @INC = '../lib';
+       }
+}
+
 # Test that md5 works on unaligned memory blocks
 
 print "1..1\n";
index 9da8895..64ad801 100644 (file)
@@ -1,3 +1,10 @@
+BEGIN {
+       if ($ENV{PERL_CORE}) {
+               chdir 't' if -d 't';
+               @INC = '../lib';
+        }
+}
+
 print "1..3\n";
 
 use strict;
@@ -8,26 +15,19 @@ use Digest::MD5 qw(md5 md5_hex md5_base64);
 # (You'll need to have Perl 5.7.3 or later, to have the Encode installed.)
 # (And remember that under the Perl core distribution you should
 #  also have the $ENV{PERL_CORE} set to a true value.)
-# Similarly, to update MacOS section, run with $ENV{MAC_MD5SUM} set.
 
 my $EXPECT;
 if (ord "A" == 193) { # EBCDIC
     $EXPECT = <<EOT;
 11e8028ee426273db6b6db270a8bb38c  README
-6e556382813f67120863f4f91b7fcdc2  MD5.xs
+c13b305ff761095dea11ea1e74e5c7ec  MD5.xs
 276da0aa4e9a08b7fe09430c9c5690aa  rfc1321.txt
 EOT
-} elsif ("\n" eq "\015") { # MacOS
-    $EXPECT = <<EOT;
-c95549c6c5e1e1c078b27042f1dc850f  README
-7aa380c810bc7c1a0bec22cf32bc50d4  MD5.xs
-754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
-EOT
 } else {
     # This is the output of: 'md5sum README MD5.xs rfc1321.txt'
     $EXPECT = <<EOT;
 c95549c6c5e1e1c078b27042f1dc850f  README
-7aa380c810bc7c1a0bec22cf32bc50d4  MD5.xs
+4ae6c261478df35a192cc1bdffd5211f  MD5.xs
 754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
 EOT
 }
@@ -54,6 +54,13 @@ for (split /^/, $EXPECT) {
             print "ok ", ++$testno, " # Skip: PERL_CORE\n";
             next;
         }
+         use File::Spec;
+        my @path = qw(ext Digest-MD5);
+        my $path = File::Spec->updir;
+        while (@path) {
+          $path = File::Spec->catdir($path, shift @path);
+        }
+        $file = File::Spec->catfile($path, $file);
      }
 #     print "# file = $file\n";
      unless (-f $file) {
@@ -67,13 +74,6 @@ for (split /^/, $EXPECT) {
         print md5_hex($data), "  $base\n";
         next;
      }
-     if ($ENV{MAC_MD5SUM}) {
-         require Encode;
-        my $data = cat_file($file);    
-        Encode::from_to($data, 'latin1', 'MacRoman');
-        print md5_hex($data), "  $base\n";
-        next;
-     }
      my $md5bin = pack("H*", $md5hex);
      my $md5b64;
      if ($B64) {
index 4b64654..1ccd59b 100644 (file)
@@ -1,3 +1,10 @@
+BEGIN {
+       if ($ENV{PERL_CORE}) {
+               chdir 't' if -d 't';
+               @INC = '../lib';
+       }
+}
+
 use strict;
 print "1..256\n";