diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2016-05-16 12:26:16 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2016-05-16 12:51:14 +0100 |
commit | 05a6ec7788eb8010c20a36ab57418c187f61573c (patch) | |
tree | e604424244381e3aaff9950f9152b60b08aa0651 /cpan | |
parent | fd02503173445323c545718233d54763a7753061 (diff) | |
download | perl-05a6ec7788eb8010c20a36ab57418c187f61573c.tar.gz |
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]
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Digest-MD5/MD5.pm | 2 | ||||
-rw-r--r-- | cpan/Digest-MD5/MD5.xs | 6 | ||||
-rw-r--r-- | cpan/Digest-MD5/t/files.t | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/cpan/Digest-MD5/MD5.pm b/cpan/Digest-MD5/MD5.pm index bb92ddb44a..bc0fec720a 100644 --- 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 index acefc30711..a48d951056 100644 --- 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 index d6b4fcb2cd..63479c24a3 100644 --- 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 } |