summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-08-22 15:45:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-08-22 15:45:31 +0000
commitb9a22df8efa3143bb1f70a81a599af4d36a3e952 (patch)
tree45d7f17422d13321de54ecf958fffa9922f1c451 /perl-install
parent231b6bd7b02a81a7383a8c407e7c90ba927692e2 (diff)
downloaddrakx-b9a22df8efa3143bb1f70a81a599af4d36a3e952.tar
drakx-b9a22df8efa3143bb1f70a81a599af4d36a3e952.tar.gz
drakx-b9a22df8efa3143bb1f70a81a599af4d36a3e952.tar.bz2
drakx-b9a22df8efa3143bb1f70a81a599af4d36a3e952.tar.xz
drakx-b9a22df8efa3143bb1f70a81a599af4d36a3e952.zip
ensure we default to MD5 password if $authentication is not passed
(since it seems finish-install for example do this)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/authentication.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 11a878bbe..72656d447 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -817,7 +817,7 @@ sub salt {
sub user_crypted_passwd {
my ($u, $authentication) = @_;
- my $isMD5 = $authentication->{md5};
+ my $isMD5 = !$authentication || $authentication->{md5};
if ($u->{password}) {
require utf8;
utf8::encode($u->{password}); #- we don't want perl to do "smart" things in crypt()