Update Digest-MD5 to CPAN version 2.55

[DELTA] 2016-03-09 Gisle Aas <gisle@ActiveState.com> Release 2.55 Gordon Stanton (2): Make use warnings work including test cases. Initial Travis config Gisle Aas (1): Avoid warning: 'static' is not at beginning of declaration [RT#105646]
Perl · May 16, 2016 · 05a6ec7 · 05a6ec7
1 parent fd02503
commit 05a6ec7
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -364,7 +364,7 @@ package Maintainers;
     },
 
     'Digest::MD5' => {
-        'DISTRIBUTION' => 'GAAS/Digest-MD5-2.54.tar.gz',
+        'DISTRIBUTION' => 'GAAS/Digest-MD5-2.55.tar.gz',
         'FILES'        => q[cpan/Digest-MD5],
         'EXCLUDED'     => ['rfc1321.txt'],
     },

diff --git a/cpan/Digest-MD5/MD5.pm b/cpan/Digest-MD5/MD5.pm
@@ -3,7 +3,7 @@ package Digest::MD5;
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '2.54';
+$VERSION = '2.55';
 
 require Exporter;
 *import = \&Exporter::import;

diff --git a/cpan/Digest-MD5/MD5.xs b/cpan/Digest-MD5/MD5.xs
@@ -156,7 +156,7 @@ STATIC int dup_md5_ctx(pTHX_ MAGIC *mg, CLONE_PARAMS *params)
 #endif
 
 #if defined(MGf_DUP) && defined(USE_ITHREADS)
-const STATIC MGVTBL vtbl_md5 = {
+STATIC const MGVTBL vtbl_md5 = {
     NULL, /* get */
     NULL, /* set */
     NULL, /* len */
@@ -168,7 +168,7 @@ const STATIC MGVTBL vtbl_md5 = {
 };
 #else
 /* declare as 5 member, not normal 8 to save image space*/
-const STATIC struct {
+STATIC const struct {
 	int (*svt_get)(SV* sv, MAGIC* mg);
 	int (*svt_set)(SV* sv, MAGIC* mg);
 	U32 (*svt_len)(SV* sv, MAGIC* mg);
@@ -788,7 +788,7 @@ md5(...)
     PPCODE:
 	MD5Init(&ctx);
 
-	if (PL_dowarn & G_WARN_ON) {
+	if ((PL_dowarn & G_WARN_ON) || ckWARN(WARN_SYNTAX)) {
             const char *msg = 0;
 	    if (items == 1) {
 		if (SvROK(ST(0))) {

diff --git a/cpan/Digest-MD5/t/files.t b/cpan/Digest-MD5/t/files.t
@@ -14,14 +14,14 @@ my $EXPECT;
 if (ord "A" == 193) { # EBCDIC
     $EXPECT = <<EOT;
 0956ffb4f6416082b27d6680b4cf73fc  README
-2a61dd5022b11faa35eed27d1c6c98c2  MD5.xs
+60a80f534f0017745eb755f36a946fe7  MD5.xs
 276da0aa4e9a08b7fe09430c9c5690aa  rfc1321.txt
 EOT
 } else {
     # This is the output of: 'md5sum README MD5.xs rfc1321.txt'
     $EXPECT = <<EOT;
 2f93400875dbb56f36691d5f69f3eba5  README
-0a0cf2512d18d24c6881d7d755e2b609  MD5.xs
+9572832f3628e3bebcdd54f47c43dc5a  MD5.xs
 754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
 EOT
 }