diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-08-22 15:45:31 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-08-22 15:45:31 +0000 |
| commit | b9a22df8efa3143bb1f70a81a599af4d36a3e952 (patch) | |
| tree | 45d7f17422d13321de54ecf958fffa9922f1c451 /perl-install/authentication.pm | |
| parent | 231b6bd7b02a81a7383a8c407e7c90ba927692e2 (diff) | |
| download | drakx-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/authentication.pm')
| -rw-r--r-- | perl-install/authentication.pm | 2 |
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() |