Hello community,
here is the log from the commit of package perl-Digest-MD5 for openSUSE:Factory
checked in at 2020-10-06 17:11:13
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Digest-MD5 (Old)
and /work/SRC/openSUSE:Factory/.perl-Digest-MD5.new.4249 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Digest-MD5"
Tue Oct 6 17:11:13 2020 rev:3 rq:839748 version:2.58
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Digest-MD5/perl-Digest-MD5.changes
2016-03-17 16:47:34.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Digest-MD5.new.4249/perl-Digest-MD5.changes
2020-10-06 17:16:02.449781874 +0200
@@ -1,0 +2,23 @@
+Tue Oct 6 03:09:48 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 2.58
+ see /usr/share/doc/packages/perl-Digest-MD5/Changes
+
+ 2.58 Mon Oct 5 2020
+ - Update repo location.
+ - Update recent changelog entries. Let's see if that's enough to make
metacpan happy.
+
+ 2.57 Mon Oct 5 2020
+ - Merge change submitted to blead -
https://github.com/Perl/perl5/commit/ee9ac1cd8eb988fea70841eae211b11355711416
+
+ 2.56 Mon Oct 5 2020
+ - Github CI Perl 5.6..5.32
+ - Fixup MANIFEST/MANIFEST.SKIP/.gitignore
+ - Enable strict and warnings on all code. Drop vars.pm -
https://github.com/Dual-Life/digest-md5/pull/11
+ - Preserve OPTIMIZE in hints/irix_6.pl -
https://github.com/Dual-Life/digest-md5/pull/14
+ - Don't return context buffer if there isn't one -
https://github.com/Dual-Life/digest-md5/pull/12
+ - Silence possible loss of data warnings on Win32 -
https://github.com/Dual-Life/digest-md5/pull/13
+
+ 2.55 Wed Mar 9 2016
+
+-------------------------------------------------------------------
Old:
----
Digest-MD5-2.55.tar.gz
New:
----
Digest-MD5-2.58.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Digest-MD5.spec ++++++
--- /var/tmp/diff_new_pack.3ukCGU/_old 2020-10-06 17:16:05.137784154 +0200
+++ /var/tmp/diff_new_pack.3ukCGU/_new 2020-10-06 17:16:05.141784157 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Digest-MD5
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,19 +12,19 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
Name: perl-Digest-MD5
-Version: 2.55
+Version: 2.58
Release: 0
%define cpan_name Digest-MD5
Summary: Perl interface to the MD5 Algorithm
-License: Artistic-1.0 or GPL-1.0+
+License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Digest-MD5/
-Source0:
http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz
+URL: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/T/TO/TODDR/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -51,11 +51,11 @@
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+make %{?_smp_mflags}
%check
-%{__make} test
+make test
%install
%perl_make_install
++++++ Digest-MD5-2.55.tar.gz -> Digest-MD5-2.58.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/Changes new/Digest-MD5-2.58/Changes
--- old/Digest-MD5-2.55/Changes 2016-03-09 22:11:27.000000000 +0100
+++ new/Digest-MD5-2.58/Changes 2020-10-05 23:51:15.000000000 +0200
@@ -1,3 +1,20 @@
+2.58 Mon Oct 5 2020
+- Update repo location.
+- Update recent changelog entries. Let's see if that's enough to make metacpan
happy.
+
+2.57 Mon Oct 5 2020
+- Merge change submitted to blead -
https://github.com/Perl/perl5/commit/ee9ac1cd8eb988fea70841eae211b11355711416
+
+
+2.56 Mon Oct 5 2020
+- Github CI Perl 5.6..5.32
+- Fixup MANIFEST/MANIFEST.SKIP/.gitignore
+- Enable strict and warnings on all code. Drop vars.pm -
https://github.com/Dual-Life/digest-md5/pull/11
+- Preserve OPTIMIZE in hints/irix_6.pl -
https://github.com/Dual-Life/digest-md5/pull/14
+- Don't return context buffer if there isn't one -
https://github.com/Dual-Life/digest-md5/pull/12
+- Silence possible loss of data warnings on Win32 -
https://github.com/Dual-Life/digest-md5/pull/13
+
+2.55 Wed Mar 9 2016
2016-03-09 Gisle Aas <[email protected]>
Release 2.55
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/MANIFEST new/Digest-MD5-2.58/MANIFEST
--- old/Digest-MD5-2.55/MANIFEST 2016-03-09 22:14:39.000000000 +0100
+++ new/Digest-MD5-2.58/MANIFEST 2020-10-05 23:51:38.000000000 +0200
@@ -1,21 +1,23 @@
-README Guess what?
-MANIFEST This file
-MD5.pm Digest::MD5 Perl Module
-hints/dec_osf.pl Workaround for DEC compiler bug
-hints/irix_6.pl Workaround for IRIX compiler bug
-hints/MacOS.pl Workaround for Mac compiler bug
-MD5.xs MD5 Perl 'XS' source file
-typemap Supplementary typemap
-Makefile.PL Perl Makefile builder
-rfc1321.txt The MD5 Message-Digest Algorithm
-t/align.t Try unaligned memory blocks
-t/badfile.t Try addfile() on unopened file
-t/bits.t Try add_bits method
-t/clone.t Try clone() method.
-t/files.t Check a few files.
-t/md5-aaa.t Exercise padding code
-t/threads.t Test if threads confuse things
-t/utf8.t Try some Unicode strings
-Changes Version history
+bin/md5sum.pl
+Changes Version history
+hints/dec_osf.pl Workaround for DEC compiler bug
+hints/irix_6.pl Workaround for IRIX compiler bug
+hints/MacOS.pl Workaround for Mac compiler bug
+Makefile.PL Perl Makefile builder
+MANIFEST This file
+MD5.pm Digest::MD5 Perl Module
+MD5.xs MD5 Perl 'XS' source file
+README Guess what?
+rfc1321.txt The MD5 Message-Digest Algorithm
+t/align.t Try unaligned memory blocks
+t/badfile.t Try addfile() on unopened file
+t/bits.t Try add_bits method
+t/clone.t Try clone() method.
+t/files.t Check a few files.
+t/md5-aaa.t Exercise padding code
+t/threads.t Test if threads confuse things
+t/utf8.t Try some Unicode strings
+t/warns.t
+typemap Supplementary typemap
META.yml Module YAML meta-data (added by
MakeMaker)
META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/MD5.pm new/Digest-MD5-2.58/MD5.pm
--- old/Digest-MD5-2.55/MD5.pm 2016-03-09 22:09:22.000000000 +0100
+++ new/Digest-MD5-2.58/MD5.pm 2020-10-05 23:51:15.000000000 +0200
@@ -1,17 +1,18 @@
package Digest::MD5;
use strict;
-use vars qw($VERSION @ISA @EXPORT_OK);
+use warnings;
-$VERSION = '2.55';
+our $VERSION = '2.58';
require Exporter;
*import = \&Exporter::import;
-@EXPORT_OK = qw(md5 md5_hex md5_base64);
+our @EXPORT_OK = qw(md5 md5_hex md5_base64);
+our @ISA;
eval {
require Digest::base;
- push(@ISA, 'Digest::base');
+ @ISA = qw/Digest::base/;
};
if ($@) {
my $err = $@;
@@ -231,11 +232,13 @@
=item $md5->context(@ctx)
-Saves or restores the internal state. When called with no arguments,
-returns a 3-element list: number of blocks processed, a 16-byte
-internal state buffer, then up to 63 bytes of unprocessed data. When
-passed those same arguments, restores the state. This is only useful
-for specialised operations.
+Saves or restores the internal state.
+When called with no arguments, returns a list:
+number of blocks processed,
+a 16-byte internal state buffer,
+then optionally up to 63 bytes of unprocessed data if there are any.
+When passed those same arguments, restores the state.
+This is only useful for specialised operations.
=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/MD5.xs new/Digest-MD5-2.58/MD5.xs
--- old/Digest-MD5-2.55/MD5.xs 2016-03-09 22:00:57.000000000 +0100
+++ new/Digest-MD5-2.58/MD5.xs 2020-10-05 23:49:55.000000000 +0200
@@ -106,20 +106,6 @@
* values. The following macros (and functions) allow us to convert
* between native integers and such values.
*/
-#undef BYTESWAP
-#ifndef U32_ALIGNMENT_REQUIRED
- #if BYTEORDER == 0x1234 /* 32-bit little endian */
- #define BYTESWAP(x) (x) /* no-op */
-
- #elif BYTEORDER == 0x4321 /* 32-bit big endian */
- #define BYTESWAP(x) ((((x)&0xFF)<<24) \
- |(((x)>>24)&0xFF) \
- |(((x)&0x0000FF00)<<8) \
- |(((x)&0x00FF0000)>>8) )
- #endif
-#endif
-
-#ifndef BYTESWAP
static void u2s(U32 u, U8* s)
{
*s++ = (U8)(u & 0xFF);
@@ -132,7 +118,6 @@
((U32)(*(s+1)) << 8) | \
((U32)(*(s+2)) << 16) | \
((U32)(*(s+3)) << 24))
-#endif
/* This structure keeps the current state of algorithm.
*/
@@ -279,29 +264,16 @@
U32 C = ctx->C;
U32 D = ctx->D;
-#ifndef U32_ALIGNMENT_REQUIRED
- const U32 *x = (U32*)buf; /* really just type casting */
-#endif
-
do {
U32 a = A;
U32 b = B;
U32 c = C;
U32 d = D;
-#if BYTEORDER == 0x1234 && !defined(U32_ALIGNMENT_REQUIRED)
- const U32 *X = x;
- #define NEXTx (*x++)
-#else
- U32 X[16]; /* converted values, used in round 2-4 */
+ U32 X[16]; /* little-endian values, used in round 2-4 */
U32 *uptr = X;
U32 tmp;
- #ifdef BYTESWAP
- #define NEXTx (tmp=*x++, *uptr++ = BYTESWAP(tmp))
- #else
#define NEXTx (s2u(buf,tmp), buf += 4, *uptr++ = tmp)
- #endif
-#endif
#ifdef MD5_DEBUG
if (buf == ctx->buffer)
@@ -313,7 +285,7 @@
int i;
fprintf(stderr,"[");
for (i = 0; i < 16; i++) {
- fprintf(stderr,"%x,", x[i]);
+ fprintf(stderr,"%x,", x[i]); /* FIXME */
}
fprintf(stderr,"]\n");
}
@@ -468,30 +440,18 @@
bits_low = ctx->bytes_low << 3;
bits_high = (ctx->bytes_high << 3) | (ctx->bytes_low >> 29);
-#ifdef BYTESWAP
- *(U32*)(ctx->buffer + fill) = BYTESWAP(bits_low); fill += 4;
- *(U32*)(ctx->buffer + fill) = BYTESWAP(bits_high); fill += 4;
-#else
u2s(bits_low, ctx->buffer + fill); fill += 4;
u2s(bits_high, ctx->buffer + fill); fill += 4;
-#endif
MD5Transform(ctx, ctx->buffer, fill >> 6);
#ifdef MD5_DEBUG
fprintf(stderr," Result: %s\n", ctx_dump(ctx));
#endif
-#ifdef BYTESWAP
- *(U32*)digest = BYTESWAP(ctx->A); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->B); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->C); digest += 4;
- *(U32*)digest = BYTESWAP(ctx->D);
-#else
u2s(ctx->A, digest);
u2s(ctx->B, digest+4);
u2s(ctx->C, digest+8);
u2s(ctx->D, digest+12);
-#endif
}
#ifndef INT2PTR
@@ -760,15 +720,19 @@
XSRETURN(0);
}
- w=ctx->A; out[ 0]=w; out[ 1]=(w>>8); out[ 2]=(w>>16); out[ 3]=(w>>24);
- w=ctx->B; out[ 4]=w; out[ 5]=(w>>8); out[ 6]=(w>>16); out[ 7]=(w>>24);
- w=ctx->C; out[ 8]=w; out[ 9]=(w>>8); out[10]=(w>>16); out[11]=(w>>24);
- w=ctx->D; out[12]=w; out[13]=(w>>8); out[14]=(w>>16); out[15]=(w>>24);
+ w=ctx->A; out[ 0]=(char)w; out[ 1]=(char)(w>>8); out[
2]=(char)(w>>16); out[ 3]=(char)(w>>24);
+ w=ctx->B; out[ 4]=(char)w; out[ 5]=(char)(w>>8); out[
6]=(char)(w>>16); out[ 7]=(char)(w>>24);
+ w=ctx->C; out[ 8]=(char)w; out[ 9]=(char)(w>>8);
out[10]=(char)(w>>16); out[11]=(char)(w>>24);
+ w=ctx->D; out[12]=(char)w; out[13]=(char)(w>>8);
out[14]=(char)(w>>16); out[15]=(char)(w>>24);
EXTEND(SP, 3);
ST(0) = sv_2mortal(newSVuv(ctx->bytes_high << 26 |
ctx->bytes_low >> 6));
ST(1) = sv_2mortal(newSVpv(out, 16));
+
+ if ((ctx->bytes_low & 0x3F) == 0)
+ XSRETURN(2);
+
ST(2) = sv_2mortal(newSVpv((char *)ctx->buffer,
ctx->bytes_low & 0x3F));
XSRETURN(3);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/META.json
new/Digest-MD5-2.58/META.json
--- old/Digest-MD5-2.55/META.json 2016-03-09 22:14:39.000000000 +0100
+++ new/Digest-MD5-2.58/META.json 2020-10-05 23:51:38.000000000 +0200
@@ -4,13 +4,13 @@
"Gisle Aas <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter
version 2.150001",
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "Digest-MD5",
"no_index" : {
@@ -40,9 +40,16 @@
},
"release_status" : "stable",
"resources" : {
+ "bugtracker" : {
+ "web" : "https://github.com/Dual-Life/digest-md5/issues";
+ },
+ "license" : [
+ "http://dev.perl.org/licenses/";
+ ],
"repository" : {
- "url" : "https://github.com/gisle/digest-md5";
+ "url" : "https://github.com/dual-Life/digest-md5/";
}
},
- "version" : "2.55"
+ "version" : "2.58",
+ "x_serialization_backend" : "JSON::PP version 4.02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/META.yml new/Digest-MD5-2.58/META.yml
--- old/Digest-MD5-2.55/META.yml 2016-03-09 22:14:39.000000000 +0100
+++ new/Digest-MD5-2.58/META.yml 2020-10-05 23:51:38.000000000 +0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter
version 2.150001'
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,5 +22,8 @@
XSLoader: '0'
perl: '5.006'
resources:
- repository: https://github.com/gisle/digest-md5
-version: '2.55'
+ bugtracker: https://github.com/Dual-Life/digest-md5/issues
+ license: http://dev.perl.org/licenses/
+ repository: https://github.com/dual-Life/digest-md5/
+version: '2.58'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/Makefile.PL
new/Digest-MD5-2.58/Makefile.PL
--- old/Digest-MD5-2.55/Makefile.PL 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/Makefile.PL 2020-10-05 23:51:15.000000000 +0200
@@ -1,11 +1,12 @@
#!perl -w
use strict;
+use warnings;
+
use Config qw(%Config);
use ExtUtils::MakeMaker;
my @extra;
-push(@extra, DEFINE => "-DU32_ALIGNMENT_REQUIRED") unless free_u32_alignment();
push(@extra, INSTALLDIRS => 'perl') if $] >= 5.008 && $] < 5.012;
if ($^O eq 'VMS') {
@@ -31,7 +32,9 @@
},
'META_MERGE' => {
resources => {
- repository => 'https://github.com/gisle/digest-md5',
+ license => 'http://dev.perl.org/licenses/',
+ bugtracker => 'https://github.com/Dual-Life/digest-md5/issues',
+ repository => 'https://github.com/dual-Life/digest-md5/',
}
},
@extra,
@@ -39,119 +42,6 @@
-sub free_u32_alignment
-{
- $|=1;
- if (exists $Config{d_u32align}) {
- print "Perl's config says that U32 access must ";
- print "not " unless $Config{d_u32align};
- print "be aligned.\n";
- return !$Config{d_u32align};
- }
-
- if ($^O eq 'VMS' || $^O eq 'MSWin32') {
- print "Assumes that $^O implies free alignment for U32 access.\n";
- return 1;
- }
-
- if ($^O eq 'hpux' && $Config{osvers} < 11.0) {
- print "Will not test for free alignment on older HP-UX.\n";
- return 0;
- }
-
- print "Testing alignment requirements for U32... ";
- open(ALIGN_TEST, ">u32align.c") or die "$!";
- print ALIGN_TEST <<'EOT'; close(ALIGN_TEST);
-/*--------------------------------------------------------------*/
-/* This program allocates a buffer of U8 (char) and then tries */
-/* to access it through a U32 pointer at every offset. The */
-/* program is expected to die with a bus error/seg fault for */
-/* machines that do not support unaligned integer read/write */
-/*--------------------------------------------------------------*/
-
-#include <stdio.h>
-#include "EXTERN.h"
-#include "perl.h"
-
-#ifdef printf
- #undef printf
-#endif
-
-int main(int argc, char** argv, char** env)
-{
-#if BYTEORDER == 0x1234 || BYTEORDER == 0x4321
- volatile U8 buf[] = "\0\0\0\1\0\0\0\0";
- volatile U32 *up;
- int i;
-
- if (sizeof(U32) != 4) {
- printf("sizeof(U32) is not 4, but %d\n", sizeof(U32));
- exit(1);
- }
-
- fflush(stdout);
-
- for (i = 0; i < 4; i++) {
- up = (U32*)(buf + i);
- if (! ((*up == 1 << (8*i)) || /* big-endian */
- (*up == 1 << (8*(3-i))) /* little-endian */
- )
- )
- {
- printf("read failed (%x)\n", *up);
- exit(2);
- }
- }
-
- /* write test */
- for (i = 0; i < 4; i++) {
- up = (U32*)(buf + i);
- *up = 0xBeef;
- if (*up != 0xBeef) {
- printf("write failed (%x)\n", *up);
- exit(3);
- }
- }
-
- printf("no restrictions\n");
- exit(0);
-#else
- printf("unusual byteorder, playing safe\n");
- exit(1);
-#endif
- return 0;
-}
-/*--------------------------------------------------------------*/
-EOT
-
- my $cc_cmd = "$Config{cc} $Config{ccflags} -I$Config{archlibexp}/CORE";
- my $exe = "u32align$Config{exe_ext}";
- $cc_cmd .= " -o $exe";
- my $rc;
- $rc = system("$cc_cmd $Config{ldflags} u32align.c $Config{libs}");
- if ($rc) {
- print "Can't compile test program. Will ensure alignment to play
safe.\n\n";
- unlink("u32align.c", $exe, "u32align$Config{obj_ext}");
- return 0;
- }
-
- $rc = system("./$exe");
- unlink("u32align.c", $exe, "u32align$Config{obj_ext}");
-
- return 1 unless $rc;
-
- if ($rc > 0x80) {
- (my $cp = $rc) >>= 8;
- print "Test program exit status was $cp\n";
- }
- if ($rc & 0x80) {
- $rc &= ~0x80;
- unlink("core") && print "Core dump deleted\n";
- }
- print "signal $rc\n" if $rc && $rc < 0x80;
- return 0;
-}
-
BEGIN {
# compatibility with older versions of MakeMaker
my $developer = -d ".git";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/bin/md5sum.pl
new/Digest-MD5-2.58/bin/md5sum.pl
--- old/Digest-MD5-2.55/bin/md5sum.pl 1970-01-01 01:00:00.000000000 +0100
+++ new/Digest-MD5-2.58/bin/md5sum.pl 2020-10-05 23:49:55.000000000 +0200
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use Digest::MD5;
+
+for (@ARGV) {
+ if (open(my $fh, "<", $_)) {
+ binmode($fh);
+ print Digest::MD5->new->addfile($fh)->hexdigest, " $_\n";
+ }
+ else {
+ warn "Can't open $_: $!";
+ }
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/hints/MacOS.pl
new/Digest-MD5-2.58/hints/MacOS.pl
--- old/Digest-MD5-2.55/hints/MacOS.pl 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/hints/MacOS.pl 2020-10-05 23:49:55.000000000 +0200
@@ -1,3 +1,5 @@
# MWCPPC compiler needs to crank down the optimizations
+use strict;
+no strict 'vars';
$self->{MWCPPCOptimize} = "-O1";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/hints/irix_6.pl
new/Digest-MD5-2.58/hints/irix_6.pl
--- old/Digest-MD5-2.55/hints/irix_6.pl 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/hints/irix_6.pl 2020-10-05 23:49:55.000000000 +0200
@@ -1,6 +1,10 @@
# The Mongoose v7.1 compiler freezes up somewhere in the optimization of
# MD5Transform() in MD5.c with optimization -O3. This is a workaround:
-if ($Config{cc} =~ /64|n32/ && `$Config{cc} -version 2>&1` =~ /\s7\.1/) {
- $self->{OPTIMIZE} = "-O1";
+use strict;
+no strict 'vars';
+if ( $Config{cc} =~ /64|n32/ && `$Config{cc} -version 2>&1` =~ /\s7\.1/ ) {
+ my $optimize = $Config{optimize};
+ $optimize =~ s/(^| )-O[2-9]\b/$1-O1/g
+ and $self->{OPTIMIZE} = $optimize;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/align.t
new/Digest-MD5-2.58/t/align.t
--- old/Digest-MD5-2.55/t/align.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/align.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,8 +1,10 @@
# Test that md5 works on unaligned memory blocks
+use strict;
+use warnings;
+
print "1..1\n";
-use strict;
use Digest::MD5 qw(md5_hex);
my $str = "\100" x 20;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/badfile.t
new/Digest-MD5-2.58/t/badfile.t
--- old/Digest-MD5-2.55/t/badfile.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/badfile.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,8 +1,10 @@
-print "1..2\n";
+use strict;
+use warnings;
use Digest::MD5 ();
-$md5 = Digest::MD5->new;
+print "1..2\n";
+my $md5 = Digest::MD5->new;
eval {
use vars qw(*FOO);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/bits.t new/Digest-MD5-2.58/t/bits.t
--- old/Digest-MD5-2.55/t/bits.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/bits.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,5 +1,8 @@
#!perl -w
+use strict;
+use warnings;
+
use Test qw(plan ok);
plan tests => 2;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/clone.t
new/Digest-MD5-2.58/t/clone.t
--- old/Digest-MD5-2.55/t/clone.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/clone.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,10 +1,12 @@
#!perl -w
-print "1..6\n";
-
use strict;
+use warnings;
+
use Digest::MD5 qw(md5_hex);
+print "1..6\n";
+
my $a = Digest::MD5->new;
$a->add("a");
my $b = $a->clone;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/files.t
new/Digest-MD5-2.58/t/files.t
--- old/Digest-MD5-2.55/t/files.t 2016-03-09 22:13:00.000000000 +0100
+++ new/Digest-MD5-2.58/t/files.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,9 +1,10 @@
-
-print "1..3\n";
-
use strict;
+use warnings;
+
use Digest::MD5 qw(md5 md5_hex md5_base64);
+print "1..3\n";
+
# To update the EBCDIC section even on a Latin 1 platform,
# run this script with $ENV{EBCDIC_MD5SUM} set to a true value.
# (You'll need to have Perl 5.7.3 or later, to have the Encode installed.)
@@ -14,14 +15,14 @@
if (ord "A" == 193) { # EBCDIC
$EXPECT = <<EOT;
0956ffb4f6416082b27d6680b4cf73fc README
-60a80f534f0017745eb755f36a946fe7 MD5.xs
+3fce99bf3f4df26d65843a6990849df0 MD5.xs
276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt
EOT
} else {
# This is the output of: 'md5sum README MD5.xs rfc1321.txt'
$EXPECT = <<EOT;
2f93400875dbb56f36691d5f69f3eba5 README
-9572832f3628e3bebcdd54f47c43dc5a MD5.xs
+3fce99bf3f4df26d65843a6990849df0 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/md5-aaa.t
new/Digest-MD5-2.58/t/md5-aaa.t
--- old/Digest-MD5-2.55/t/md5-aaa.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/md5-aaa.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,8 +1,10 @@
use strict;
-print "1..256\n";
+use warnings;
use Digest::MD5 qw(md5_hex);
+print "1..256\n";
+
my $Is_EBCDIC = ord('A') == 193;
my $testno = 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/threads.t
new/Digest-MD5-2.58/t/threads.t
--- old/Digest-MD5-2.55/t/threads.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/threads.t 2020-10-05 23:49:55.000000000 +0200
@@ -1,5 +1,6 @@
use strict;
use warnings;
+
use Test::More;
use Config;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/utf8.t new/Digest-MD5-2.58/t/utf8.t
--- old/Digest-MD5-2.55/t/utf8.t 2015-12-15 21:01:50.000000000 +0100
+++ new/Digest-MD5-2.58/t/utf8.t 2020-10-05 23:49:55.000000000 +0200
@@ -7,11 +7,13 @@
}
}
-print "1..5\n";
-
use strict;
+use warnings;
+
use Digest::MD5 qw(md5_hex);
+print "1..5\n";
+
my $str;
$str = "foo\xFF\x{100}";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.55/t/warns.t
new/Digest-MD5-2.58/t/warns.t
--- old/Digest-MD5-2.55/t/warns.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Digest-MD5-2.58/t/warns.t 2020-10-05 23:49:55.000000000 +0200
@@ -0,0 +1,62 @@
+use Digest::MD5;
+use Test::More tests => 6;
+
+$^W = 0; # No warnings
+{
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ $str = Digest::MD5->md5_hex("foo");
+ is($stderr_seen,'','No warnings');
+}
+
+{
+ $^W = 1; # magic turn on warnings
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ $str = Digest::MD5->md5_hex("foo");
+ like($stderr_seen,qr/Digest::MD5::md5_hex function probably called as class
method/,
+ 'Lexical warning passed to XSUB');
+}
+
+{
+ $^W = 0; # No warnings
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ $str = Digest::MD5->md5_hex("foo");
+ is($stderr_seen,'','No warnings again');
+}
+
+{
+ use warnings;
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ $str = Digest::MD5->md5_hex("foo");
+ like($stderr_seen,qr/Digest::MD5::md5_hex function probably called as class
method/,
+ 'use warnings passed to XSUB');
+}
+
+{
+ use strict;
+ $^W = 0; # No warnings
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ my $str = Digest::MD5->md5_hex("foo");
+ is($stderr_seen,'','No warnings and strict');
+}
+
+{
+ use strict;
+ use warnings;
+ local *STDERR;
+ my $stderr_seen = "";
+ open STDERR, '>', \$stderr_seen;
+ my $str = Digest::MD5->md5_hex("foo");
+ like($stderr_seen, qr/Digest::MD5::md5_hex function probably called as class
method/,
+ 'use warnings passed to XSUB while use strict');
+}
+
