From 817a42b9e37a78a176e59cf735894a14c54c76eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Sep 2001 21:07:57 +0000
Subject: (write_passwd_user): fix setting "pw" field (for auto_installs)

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 3fcc19916..4db66dbcd 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -790,7 +790,7 @@ sub selectLanguage {
 sub write_passwd_user {
     my ($prefix, $u, $isMD5) = @_;
 
-    local $u->{pw} = $u->{pw} || $u->{password} && &crypt($u->{password}, $isMD5);
+    $u->{pw} = &crypt($u->{password}, $isMD5) if $u->{password};
     $u->{shell} ||= '/bin/bash';
 
     substInFile {
-- 
cgit v1.2.1