summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-15 16:55:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-15 16:55:50 +0000
commit3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48 (patch)
tree7db366f5695c6d4dcb23011db0d6c3c4633ccaa0 /perl-install
parente6b811e7c9d1e77349549b9ef40126a0cb560c61 (diff)
downloaddrakx-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar
drakx-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.gz
drakx-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.bz2
drakx-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.xz
drakx-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.zip
(write_passwd_user): fix use of local
Diffstat (limited to 'perl-install')
-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 {