Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Crypt-PasswdMD5 for
openSUSE:Factory checked in at 2022-08-01 21:31:52
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Crypt-PasswdMD5 (Old)
and /work/SRC/openSUSE:Factory/.perl-Crypt-PasswdMD5.new.1533 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Crypt-PasswdMD5"
Mon Aug 1 21:31:52 2022 rev:3 rq:991553 version:1.42
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Crypt-PasswdMD5/perl-Crypt-PasswdMD5.changes
2021-02-03 19:56:22.369721561 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Crypt-PasswdMD5.new.1533/perl-Crypt-PasswdMD5.changes
2022-08-01 21:32:33.802029039 +0200
@@ -1,0 +2,15 @@
+Thu Jul 14 03:07:24 UTC 2022 - Tina M??ller <[email protected]>
+
+- updated to 1.42
+ see /usr/share/doc/packages/perl-Crypt-PasswdMD5/Changelog.ini
+
+ [V 1.42]
+ Date=2022-07-13T16:20:00
+ Comments= <<EOT
+ - Accept pull request from Dmitry Karasik, to handle the case where the
password
+ has the utf8 bit set. With thanx.
+ - Update t/basic.t to use Encode and to test the utf8 bit setting.
+ - Very slightly reformat the source code of PasswdMD5.pm and basic.t.
+ EOT
+
+-------------------------------------------------------------------
Old:
----
Crypt-PasswdMD5-1.41.tgz
New:
----
Crypt-PasswdMD5-1.42.tgz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Crypt-PasswdMD5.spec ++++++
--- /var/tmp/diff_new_pack.2R6RSP/_old 2022-08-01 21:32:34.258030347 +0200
+++ /var/tmp/diff_new_pack.2R6RSP/_new 2022-08-01 21:32:34.266030370 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Crypt-PasswdMD5
#
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2022 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,10 +18,10 @@
%define cpan_name Crypt-PasswdMD5
Name: perl-Crypt-PasswdMD5
-Version: 1.41
+Version: 1.42
Release: 0
-Summary: Provide interoperable MD5-based crypt() functions
License: Artistic-1.0 OR GPL-1.0-or-later
+Summary: Provide interoperable MD5-based crypt() functions
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/R/RS/RSAVAGE/%{cpan_name}-%{version}.tgz
Source1: cpanspec.yml
++++++ Crypt-PasswdMD5-1.41.tgz -> Crypt-PasswdMD5-1.42.tgz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/Changelog.ini
new/Crypt-PasswdMD5-1.42/Changelog.ini
--- old/Crypt-PasswdMD5-1.41/Changelog.ini 2021-02-01 10:00:05.000000000
+0100
+++ new/Crypt-PasswdMD5-1.42/Changelog.ini 2022-07-13 08:32:25.000000000
+0200
@@ -3,6 +3,15 @@
Changelog.Creator=Module::Metadata::Changes V 2.12
Changelog.Parser=Config::IniFiles V 3.000003
+[V 1.42]
+Date=2022-07-13T16:20:00
+Comments= <<EOT
+- Accept pull request from Dmitry Karasik, to handle the case where the
password
+has the utf8 bit set. With thanx.
+- Update t/basic.t to use Encode and to test the utf8 bit setting.
+- Very slightly reformat the source code of PasswdMD5.pm and basic.t.
+EOT
+
[V 1.41]
Date=2021-02-01T15:56:00
Comments= <<EOT
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/Changes
new/Crypt-PasswdMD5-1.42/Changes
--- old/Crypt-PasswdMD5-1.41/Changes 2021-02-01 09:52:50.000000000 +0100
+++ new/Crypt-PasswdMD5-1.42/Changes 2022-07-13 08:27:17.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl extension Crypt::PasswdMD5.
+1.42 2022-07-13T16:20:00
+ - Accept pull request from Dmitry Karasik, to handle the case where the
password
+ has the utf8 bit set. With thanx.
+ - Update t/basic.t to use Encode and to test the utf8 bit setting.
+ - Very slightly reformat the source code of PasswdMD5.pm and basic.t.
+
1.41 2021-02-01T15:56:00
- Adopt new repo structure. See
http://savage.net.au/Ron/html/My.Workflow.for.Building.Distros.html.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/META.json
new/Crypt-PasswdMD5-1.42/META.json
--- old/Crypt-PasswdMD5-1.41/META.json 2021-02-01 10:00:06.000000000 +0100
+++ new/Crypt-PasswdMD5-1.42/META.json 2022-07-13 08:32:25.000000000 +0200
@@ -4,7 +4,7 @@
"Luis E. Munoz <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter
version 2.150010",
"license" : [
"perl_5"
],
@@ -57,6 +57,6 @@
"web" : "https://github.com/ronsavage/Crypt-PasswdMD5";
}
},
- "version" : "1.41",
- "x_serialization_backend" : "JSON::PP version 4.02"
+ "version" : "1.42",
+ "x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/META.yml
new/Crypt-PasswdMD5-1.42/META.yml
--- old/Crypt-PasswdMD5-1.41/META.yml 2021-02-01 10:00:06.000000000 +0100
+++ new/Crypt-PasswdMD5-1.42/META.yml 2022-07-13 08:32:25.000000000 +0200
@@ -8,7 +8,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.62, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,5 +26,5 @@
bugtracker: https://github.com/ronsavage/Crypt-PasswdMD5/issues
license: http://opensource.org/licenses/Perl
repository: https://github.com/ronsavage/Crypt-PasswdMD5.git
-version: '1.41'
+version: '1.42'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/lib/Crypt/PasswdMD5.pm
new/Crypt-PasswdMD5-1.42/lib/Crypt/PasswdMD5.pm
--- old/Crypt-PasswdMD5-1.41/lib/Crypt/PasswdMD5.pm 2021-02-01
10:00:05.000000000 +0100
+++ new/Crypt-PasswdMD5-1.42/lib/Crypt/PasswdMD5.pm 2022-07-13
08:32:25.000000000 +0200
@@ -4,12 +4,13 @@
use warnings;
use Digest::MD5;
+use Encode;
use Exporter 'import';
our @EXPORT = qw/unix_md5_crypt apache_md5_crypt/;
our @EXPORT_OK = (@EXPORT, 'random_md5_salt');
-our $VERSION = '1.41';
+our $VERSION = '1.42';
# ------------------------------------------------
@@ -67,11 +68,10 @@
sub unix_md5_crypt
{
- my($pw, $salt) = @_;
+ my($pw, $salt) = @_;
+ $pw = Encode::encode('utf8', $pw) if
Encode::is_utf8($pw);
- my($passwd);
-
- if (defined $salt)
+ if (defined $salt)
{
$salt =~ s/^\Q$Magic//; # Take care of the magic string if
present.
$salt =~ s/^(.*)\$.*$/$1/; # Salt can have up to 8 chars...
@@ -80,7 +80,7 @@
else
{
$salt = random_md5_salt(); # In case no salt was
proffered.
- }
+ }
my($ctx) = Digest::MD5 -> new; # Here we start the calculation.
@@ -161,6 +161,8 @@
# Final xform
+ my($passwd);
+
$passwd = '';
$passwd .= to64(int(unpack('C', (substr($final, 0, 1) ) ) << 16)
| int(unpack('C', (substr($final, 6, 1) ) ) <<
8)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Crypt-PasswdMD5-1.41/t/basic.t
new/Crypt-PasswdMD5-1.42/t/basic.t
--- old/Crypt-PasswdMD5-1.41/t/basic.t 2013-09-30 12:23:06.000000000 +0200
+++ new/Crypt-PasswdMD5-1.42/t/basic.t 2022-07-13 08:25:36.000000000 +0200
@@ -5,6 +5,7 @@
# ------------------------------------------------
+use_ok('Encode');
use_ok('Crypt::PasswdMD5');
my($phrase1) = "hello world\n";
@@ -35,4 +36,9 @@
ok($t =~ /^\$apr1\$/, '$t now has the correct value');
+my($phrase2) = "\x{dead}\x{beef}";
+my($phrase3) = Encode::encode('utf8', $phrase2);
+
+ok(unix_md5_crypt($phrase2, '1234') eq unix_md5_crypt($phrase3, '1234'),
'Hashing of a utf8 password');
+
done_testing;
