From b9a22df8efa3143bb1f70a81a599af4d36a3e952 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Aug 2008 15:45:31 +0000
Subject: ensure we default to MD5 password if $authentication is not passed
 (since it seems finish-install for example do this)

---
 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 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()
-- 
cgit v1.2.1