From 23254ef9177458af7681385d5bda2fe5c08c3a70 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 10 Jul 2008 00:10:15 +0000 Subject: authentication: fix reading md5/shadow options in /etc/pam.d/system-auth (the hash was wrecked when shadow was present but not md5) --- perl-install/NEWS | 1 + perl-install/authentication.pm | 2 +- perl-install/install/NEWS | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index 28d70c406..52d529488 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - authentication: o add back fix to force the password to be utf8 (#23273) + o fix reading md5/shadow options in /etc/pam.d/system-auth Version 10.45 - 09 July 2008 diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm index 638cb7f92..0adf20f84 100644 --- a/perl-install/authentication.pm +++ b/perl-install/authentication.pm @@ -261,7 +261,7 @@ sub check_given_password { sub get() { my $system_auth = cat_("/etc/pam.d/system-auth"); my $authentication = { - md5 => $system_auth =~ /md5/, shadow => $system_auth =~ /shadow/, + md5 => to_bool($system_auth =~ /md5/), shadow => to_bool($system_auth =~ /shadow/), }; my @pam_kinds = get_pam_authentication_kinds(); diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index cb83be3e9..19751365e 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,5 +1,6 @@ - authentication: o add back fix to force the password to be utf8 (#23273) + o fix reading md5/shadow options in /etc/pam.d/system-auth Version 10.45 - 9 July 2008 -- cgit v1.2.1