summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
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 {