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/authentication.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/authentication.pm') 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(); -- cgit v1.2.1