Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Digest-MD5 for openSUSE:Factory
checked in at 2024-01-04 16:47:25
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Digest-MD5 (Old)
and /work/SRC/openSUSE:Factory/.perl-Digest-MD5.new.28375 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Digest-MD5"
Thu Jan 4 16:47:25 2024 rev:4 rq:1136858 version:2.590.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Digest-MD5/perl-Digest-MD5.changes
2020-10-06 17:16:02.449781874 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Digest-MD5.new.28375/perl-Digest-MD5.changes
2024-01-04 16:47:26.342260311 +0100
@@ -1,0 +2,13 @@
+Sun Dec 31 03:07:16 UTC 2023 - Tina Müller <[email protected]>
+
+- updated to 2.59
+ see /usr/share/doc/packages/perl-Digest-MD5/Changes
+
+ 2.59 Sat Dec 30 2023
+ - Remove meaningless const type qualifier to silence HPUX builds.
+ - remove useless perl 5.6 check
+ - convert bits.t test to use Test::More
+ - Update Digest::MD5 Synopsis and Examples. Add `my` to synopsis
+ - MD5.xs: eliminate C++ guards
+
+-------------------------------------------------------------------
Old:
----
Digest-MD5-2.58.tar.gz
New:
----
Digest-MD5-2.59.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Digest-MD5.spec ++++++
--- /var/tmp/diff_new_pack.NQEQem/_old 2024-01-04 16:47:27.090287637 +0100
+++ /var/tmp/diff_new_pack.NQEQem/_new 2024-01-04 16:47:27.094287782 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Digest-MD5
#
-# Copyright (c) 2020 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,19 +16,20 @@
#
+%define cpan_name Digest-MD5
Name: perl-Digest-MD5
-Version: 2.58
+Version: 2.590.0
Release: 0
-%define cpan_name Digest-MD5
-Summary: Perl interface to the MD5 Algorithm
+%define cpan_version 2.59
License: Artistic-1.0 OR GPL-1.0-or-later
-Group: Development/Libraries/Perl
+Summary: Perl interface to the MD-5 algorithm
URL: https://metacpan.org/release/%{cpan_name}
-Source0:
https://cpan.metacpan.org/authors/id/T/TO/TODDR/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/T/TO/TODDR/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+Provides: perl(Digest::MD5) = %{version}
+%define __perllib_provides /bin/true
%{perl_requires}
%description
@@ -48,11 +49,11 @@
length and which can read files directly.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{cpan_version}
%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-make %{?_smp_mflags}
+%make_build
%check
make test
@@ -63,6 +64,5 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README rfc1321.txt
++++++ Digest-MD5-2.58.tar.gz -> Digest-MD5-2.59.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/Changes new/Digest-MD5-2.59/Changes
--- old/Digest-MD5-2.58/Changes 2020-10-05 23:51:15.000000000 +0200
+++ new/Digest-MD5-2.59/Changes 2023-12-30 21:57:45.000000000 +0100
@@ -1,3 +1,10 @@
+2.59 Sat Dec 30 2023
+- Remove meaningless const type qualifier to silence HPUX builds.
+- remove useless perl 5.6 check
+- convert bits.t test to use Test::More
+- Update Digest::MD5 Synopsis and Examples. Add `my` to synopsis
+- MD5.xs: eliminate C++ guards
+
2.58 Mon Oct 5 2020
- Update repo location.
- Update recent changelog entries. Let's see if that's enough to make metacpan
happy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/MD5.pm new/Digest-MD5-2.59/MD5.pm
--- old/Digest-MD5-2.58/MD5.pm 2020-10-05 23:51:15.000000000 +0200
+++ new/Digest-MD5-2.59/MD5.pm 2023-12-30 21:35:13.000000000 +0100
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '2.58';
+our $VERSION = '2.59';
require Exporter;
*import = \&Exporter::import;
@@ -27,15 +27,15 @@
if ($@) {
my $olderr = $@;
eval {
- # Try to load the pure perl version
- require Digest::Perl::MD5;
+ # Try to load the pure perl version
+ require Digest::Perl::MD5;
- Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64));
- unshift(@ISA, "Digest::Perl::MD5"); # make OO interface work
+ Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64));
+ unshift(@ISA, "Digest::Perl::MD5"); # make OO interface work
};
if ($@) {
- # restore the original error
- die $olderr;
+ # restore the original error
+ die $olderr;
}
}
else {
@@ -51,24 +51,24 @@
=head1 SYNOPSIS
- # Functional style
- use Digest::MD5 qw(md5 md5_hex md5_base64);
+ # Functional style
+ use Digest::MD5 qw(md5 md5_hex md5_base64);
- $digest = md5($data);
- $digest = md5_hex($data);
- $digest = md5_base64($data);
+ my $digest = md5($data);
+ my $digest = md5_hex($data);
+ my $digest = md5_base64($data);
- # OO style
- use Digest::MD5;
+ # OO style
+ use Digest::MD5;
- $ctx = Digest::MD5->new;
+ my $ctx = Digest::MD5->new;
- $ctx->add($data);
- $ctx->addfile($file_handle);
+ $ctx->add($data);
+ $ctx->addfile($file_handle);
- $digest = $ctx->digest;
- $digest = $ctx->hexdigest;
- $digest = $ctx->b64digest;
+ $digest = $ctx->digest;
+ $digest = $ctx->hexdigest;
+ $digest = $ctx->b64digest;
=head1 DESCRIPTION
@@ -157,8 +157,8 @@
my $md5 = Digest::MD5->new;
while (<>) {
- $md5->add($_);
- print "Line $.: ", $md5->clone->hexdigest, "\n";
+ $md5->add($_);
+ print "Line $.: ", $md5->clone->hexdigest, "\n";
}
=item $md5->add($data,...)
@@ -258,12 +258,10 @@
The same checksum can also be calculated in OO style:
use Digest::MD5;
-
- $md5 = Digest::MD5->new;
+ my $md5 = Digest::MD5->new;
$md5->add('foo', 'bar');
$md5->add('baz');
- $digest = $md5->hexdigest;
-
+ my $digest = $md5->hexdigest;
print "Digest is $digest\n";
With OO style, you can break the message arbitrarily. This means that we
@@ -278,7 +276,7 @@
open (my $fh, '<', $filename) or die "Can't open '$filename': $!";
binmode($fh);
- $md5 = Digest::MD5->new;
+ my $md5 = Digest::MD5->new;
while (<$fh>) {
$md5->add($_);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/MD5.xs new/Digest-MD5-2.59/MD5.xs
--- old/Digest-MD5-2.58/MD5.xs 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/MD5.xs 2023-12-30 21:54:58.000000000 +0100
@@ -32,16 +32,10 @@
* documentation and/or software.
*/
-#ifdef __cplusplus
-extern "C" {
-#endif
#define PERL_NO_GET_CONTEXT /* we want efficiency */
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
-#ifdef __cplusplus
-}
-#endif
#ifndef PERL_UNUSED_VAR
# define PERL_UNUSED_VAR(x) ((void)x)
@@ -467,7 +461,7 @@
for (mg = SvMAGIC(SvRV(sv)); mg; mg = mg->mg_moremagic) {
if (mg->mg_type == PERL_MAGIC_ext
- && mg->mg_virtual == (const MGVTBL * const)&vtbl_md5) {
+ && mg->mg_virtual == (const MGVTBL *)&vtbl_md5) {
return (MD5_CTX *)mg->mg_ptr;
}
}
@@ -489,7 +483,7 @@
#ifdef USE_ITHREADS
mg =
#endif
- sv_magicext(sv, NULL, PERL_MAGIC_ext, (const MGVTBL * const)&vtbl_md5,
(const char *)context, 0);
+ sv_magicext(sv, NULL, PERL_MAGIC_ext, (const MGVTBL *)&vtbl_md5, (const
char *)context, 0);
#if defined(USE_ITHREADS) && defined(MGf_DUP)
mg->mg_flags |= MGf_DUP;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/META.json
new/Digest-MD5-2.59/META.json
--- old/Digest-MD5-2.58/META.json 2020-10-05 23:51:38.000000000 +0200
+++ new/Digest-MD5-2.59/META.json 2023-12-30 22:00:37.000000000 +0100
@@ -4,7 +4,7 @@
"Gisle Aas <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
@@ -50,6 +50,6 @@
"url" : "https://github.com/dual-Life/digest-md5/";
}
},
- "version" : "2.58",
- "x_serialization_backend" : "JSON::PP version 4.02"
+ "version" : "2.59",
+ "x_serialization_backend" : "JSON::PP version 4.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/META.yml new/Digest-MD5-2.59/META.yml
--- old/Digest-MD5-2.58/META.yml 2020-10-05 23:51:38.000000000 +0200
+++ new/Digest-MD5-2.59/META.yml 2023-12-30 22:00:37.000000000 +0100
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,5 +25,5 @@
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'
+version: '2.59'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/Makefile.PL
new/Digest-MD5-2.59/Makefile.PL
--- old/Digest-MD5-2.58/Makefile.PL 2020-10-05 23:51:15.000000000 +0200
+++ new/Digest-MD5-2.59/Makefile.PL 2023-12-30 21:35:13.000000000 +0100
@@ -20,16 +20,16 @@
WriteMakefile(
- 'NAME' => 'Digest::MD5',
+ 'NAME' => 'Digest::MD5',
'VERSION_FROM' => 'MD5.pm',
'ABSTRACT' => 'Perl interface to the MD-5 algorithm',
'AUTHOR' => 'Gisle Aas <[email protected]>',
'LICENSE' => 'perl',
'MIN_PERL_VERSION' => 5.006,
'PREREQ_PM' => {
- 'Digest::base' => '1.00',
- 'XSLoader' => 0,
- },
+ 'Digest::base' => '1.00',
+ 'XSLoader' => 0,
+ },
'META_MERGE' => {
resources => {
license => 'http://dev.perl.org/licenses/',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/bin/md5sum.pl
new/Digest-MD5-2.59/bin/md5sum.pl
--- old/Digest-MD5-2.58/bin/md5sum.pl 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/bin/md5sum.pl 2023-12-30 21:35:13.000000000 +0100
@@ -5,10 +5,10 @@
for (@ARGV) {
if (open(my $fh, "<", $_)) {
- binmode($fh);
- print Digest::MD5->new->addfile($fh)->hexdigest, " $_\n";
+ binmode($fh);
+ print Digest::MD5->new->addfile($fh)->hexdigest, " $_\n";
}
else {
- warn "Can't open $_: $!";
+ warn "Can't open $_: $!";
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/t/bits.t new/Digest-MD5-2.59/t/bits.t
--- old/Digest-MD5-2.58/t/bits.t 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/t/bits.t 2023-12-30 21:35:13.000000000 +0100
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test qw(plan ok);
-plan tests => 2;
+use Test::More tests => 2;
use Digest::MD5;
@@ -12,18 +11,18 @@
if ($Digest::base::VERSION) {
$md5->add_bits("01111111");
- ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595");
+ is($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595");
eval {
- $md5->add_bits("0111");
+ $md5->add_bits("0111");
};
- ok($@ =~ /must be multiple of 8/);
+ like($@, qr/must be multiple of 8/);
}
else {
print "# No Digest::base\n";
eval {
- $md5->add_bits("foo");
+ $md5->add_bits("foo");
};
- ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
+ like($@, qr/^Can\'t locate Digest\/base\.pm in \@INC/);
ok(1); # dummy
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/t/files.t
new/Digest-MD5-2.59/t/files.t
--- old/Digest-MD5-2.58/t/files.t 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/t/files.t 2023-12-30 21:36:17.000000000 +0100
@@ -15,14 +15,14 @@
if (ord "A" == 193) { # EBCDIC
$EXPECT = <<EOT;
0956ffb4f6416082b27d6680b4cf73fc README
-3fce99bf3f4df26d65843a6990849df0 MD5.xs
+f9d533188a37309320d2805372db0b0e MD5.xs
276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt
EOT
} else {
# This is the output of: 'md5sum README MD5.xs rfc1321.txt'
$EXPECT = <<EOT;
2f93400875dbb56f36691d5f69f3eba5 README
-3fce99bf3f4df26d65843a6990849df0 MD5.xs
+f4b5da4e0f19b4c0ab374b7085ed8955 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
}
@@ -41,99 +41,99 @@
}
for (split /^/, $EXPECT) {
- my($md5hex, $file) = split ' ';
- my $base = $file;
-# print "# $base\n";
- if ($ENV{PERL_CORE}) {
+ my($md5hex, $file) = split ' ';
+ my $base = $file;
+# print "# $base\n";
+ if ($ENV{PERL_CORE}) {
# Don't have these in core.
- if ($file eq 'rfc1321.txt' or $file eq 'README') {
- print "ok ", ++$testno, " # Skip: PERL_CORE\n";
- next;
- }
- }
-# print "# file = $file\n";
- unless (-f $file) {
- warn "No such file: $file\n";
- next;
- }
- if ($ENV{EBCDIC_MD5SUM}) {
- require Encode;
- my $data = cat_file($file);
- Encode::from_to($data, 'latin1', 'cp1047');
- print md5_hex($data), " $base\n";
- next;
- }
- my $md5bin = pack("H*", $md5hex);
- my $md5b64;
- if ($B64) {
- $md5b64 = MIME::Base64::encode($md5bin, "");
- chop($md5b64); chop($md5b64); # remove padding
- }
- my $failed;
- my $got;
-
- if (digest_file($file, 'digest') ne $md5bin) {
- print "$file: Bad digest\n";
- $failed++;
- }
-
- if (($got = digest_file($file, 'hexdigest')) ne $md5hex) {
- print "$file: Bad hexdigest: got $got expected $md5hex\n";
- $failed++;
- }
-
- if ($B64 && digest_file($file, 'b64digest') ne $md5b64) {
- print "$file: Bad b64digest\n";
- $failed++;
- }
-
- my $data = cat_file($file);
- if (md5($data) ne $md5bin) {
- print "$file: md5() failed\n";
- $failed++;
- }
- if (md5_hex($data) ne $md5hex) {
- print "$file: md5_hex() failed\n";
- $failed++;
- }
- if ($B64 && md5_base64($data) ne $md5b64) {
- print "$file: md5_base64() failed\n";
- $failed++;
- }
-
- if (Digest::MD5->new->add($data)->digest ne $md5bin) {
- print "$file: MD5->new->add(...)->digest failed\n";
- $failed++;
- }
- if (Digest::MD5->new->add($data)->hexdigest ne $md5hex) {
- print "$file: MD5->new->add(...)->hexdigest failed\n";
- $failed++;
- }
- if ($B64 && Digest::MD5->new->add($data)->b64digest ne $md5b64) {
- print "$file: MD5->new->add(...)->b64digest failed\n";
- $failed++;
- }
-
- my @data = split //, $data;
- if (md5(@data) ne $md5bin) {
- print "$file: md5(\@data) failed\n";
- $failed++;
- }
- if (Digest::MD5->new->add(@data)->digest ne $md5bin) {
- print "$file: MD5->new->add(\@data)->digest failed\n";
- $failed++;
- }
- my $md5 = Digest::MD5->new;
- for (@data) {
- $md5->add($_);
- }
- if ($md5->digest ne $md5bin) {
- print "$file: $md5->add()-loop failed\n";
- $failed++;
- }
+ if ($file eq 'rfc1321.txt' or $file eq 'README') {
+ print "ok ", ++$testno, " # Skip: PERL_CORE\n";
+ next;
+ }
+ }
+# print "# file = $file\n";
+ unless (-f $file) {
+ warn "No such file: $file\n";
+ next;
+ }
+ if ($ENV{EBCDIC_MD5SUM}) {
+ require Encode;
+ my $data = cat_file($file);
+ Encode::from_to($data, 'latin1', 'cp1047');
+ print md5_hex($data), " $base\n";
+ next;
+ }
+ my $md5bin = pack("H*", $md5hex);
+ my $md5b64;
+ if ($B64) {
+ $md5b64 = MIME::Base64::encode($md5bin, "");
+ chop($md5b64); chop($md5b64); # remove padding
+ }
+ my $failed;
+ my $got;
+
+ if (digest_file($file, 'digest') ne $md5bin) {
+ print "$file: Bad digest\n";
+ $failed++;
+ }
+
+ if (($got = digest_file($file, 'hexdigest')) ne $md5hex) {
+ print "$file: Bad hexdigest: got $got expected $md5hex\n";
+ $failed++;
+ }
+
+ if ($B64 && digest_file($file, 'b64digest') ne $md5b64) {
+ print "$file: Bad b64digest\n";
+ $failed++;
+ }
+
+ my $data = cat_file($file);
+ if (md5($data) ne $md5bin) {
+ print "$file: md5() failed\n";
+ $failed++;
+ }
+ if (md5_hex($data) ne $md5hex) {
+ print "$file: md5_hex() failed\n";
+ $failed++;
+ }
+ if ($B64 && md5_base64($data) ne $md5b64) {
+ print "$file: md5_base64() failed\n";
+ $failed++;
+ }
+
+ if (Digest::MD5->new->add($data)->digest ne $md5bin) {
+ print "$file: MD5->new->add(...)->digest failed\n";
+ $failed++;
+ }
+ if (Digest::MD5->new->add($data)->hexdigest ne $md5hex) {
+ print "$file: MD5->new->add(...)->hexdigest failed\n";
+ $failed++;
+ }
+ if ($B64 && Digest::MD5->new->add($data)->b64digest ne $md5b64) {
+ print "$file: MD5->new->add(...)->b64digest failed\n";
+ $failed++;
+ }
+
+ my @data = split //, $data;
+ if (md5(@data) ne $md5bin) {
+ print "$file: md5(\@data) failed\n";
+ $failed++;
+ }
+ if (Digest::MD5->new->add(@data)->digest ne $md5bin) {
+ print "$file: MD5->new->add(\@data)->digest failed\n";
+ $failed++;
+ }
+ my $md5 = Digest::MD5->new;
+ for (@data) {
+ $md5->add($_);
+ }
+ if ($md5->digest ne $md5bin) {
+ print "$file: $md5->add()-loop failed\n";
+ $failed++;
+ }
- print "not " if $failed;
- print "ok ", ++$testno, "\n";
+ print "not " if $failed;
+ print "ok ", ++$testno, "\n";
}
@@ -163,4 +163,3 @@
close(FILE);
$tmp;
}
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/t/md5-aaa.t
new/Digest-MD5-2.59/t/md5-aaa.t
--- old/Digest-MD5-2.58/t/md5-aaa.t 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/t/md5-aaa.t 2023-12-30 21:35:13.000000000 +0100
@@ -10,22 +10,22 @@
my $testno = 0;
while (<DATA>) {
if (!$Is_EBCDIC) {
- next if /^EBCDIC/;
+ next if /^EBCDIC/;
}
else {
- next if !/^EBCDIC/;
- s/^EBCDIC,\w+#//;
- }
- my($hexdigest, $message) = split;
- $message =~ s/\"//g;
+ next if !/^EBCDIC/;
+ s/^EBCDIC,\w+#//;
+ }
+ my($hexdigest, $message) = split;
+ $message =~ s/\"//g;
- my $failed;
- $failed++ unless md5_hex($message) eq $hexdigest;
- $failed++ unless Digest::MD5->new->add(split(//, $message))->digest
- eq pack("H*", $hexdigest);
+ my $failed;
+ $failed++ unless md5_hex($message) eq $hexdigest;
+ $failed++ unless Digest::MD5->new->add(split(//, $message))->digest
+ eq pack("H*", $hexdigest);
- print "not " if $failed;
- print "ok ", ++$testno, "\n";
+ print "not " if $failed;
+ print "ok ", ++$testno, "\n";
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Digest-MD5-2.58/t/utf8.t new/Digest-MD5-2.59/t/utf8.t
--- old/Digest-MD5-2.58/t/utf8.t 2020-10-05 23:49:55.000000000 +0200
+++ new/Digest-MD5-2.59/t/utf8.t 2023-12-30 21:35:13.000000000 +0100
@@ -1,12 +1,5 @@
#!perl -w
-BEGIN {
- if ($] < 5.006) {
- print "1..0 # Skipped: your perl don't know unicode\n";
- exit;
- }
-}
-
use strict;
use warnings;
@@ -25,8 +18,8 @@
print "ok 1\n";
my $exp = ord "A" == 193 ? # EBCDIC
- "c307ec81deba65e9a222ca81cd8f6ccd" :
- "503debffe559537231ed24f25651ec20"; # Latin 1
+ "c307ec81deba65e9a222ca81cd8f6ccd" :
+ "503debffe559537231ed24f25651ec20"; # Latin 1
chop($str); # only bytes left
print "not " unless md5_hex($str) eq $exp;
