diff options
| -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() |