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 <timueller+perl@suse.de> + +- 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 <luismunoz@cpan.org>" ], "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;