From 3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 15 Apr 2001 16:55:50 +0000
Subject: (write_passwd_user): fix use of local

---
 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 3ae0b8f05..e2045a535 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -770,7 +770,7 @@ If you don't want to use this feature, click on the cancel button."),
 sub write_passwd_user {
     my ($prefix, $u, $isMD5) = @_;
 
-    local $u->{pw} ||= $u->{password} && &crypt($u->{password}, $isMD5);
+    local $u->{pw} = $u->{pw} || $u->{password} && &crypt($u->{password}, $isMD5);
     $u->{shell} ||= '/bin/bash';
 
     substInFile {
-- 
cgit v1.2.1