diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-15 16:55:50 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-15 16:55:50 +0000 |
commit | 3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48 (patch) | |
tree | 7db366f5695c6d4dcb23011db0d6c3c4633ccaa0 /perl-install | |
parent | e6b811e7c9d1e77349549b9ef40126a0cb560c61 (diff) | |
download | drakx-backup-do-not-use-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar drakx-backup-do-not-use-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.gz drakx-backup-do-not-use-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.bz2 drakx-backup-do-not-use-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.tar.xz drakx-backup-do-not-use-3e8dc4d4c3bd9812b3cff5ecba64aa7a16546b48.zip |
(write_passwd_user): fix use of local
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/any.pm | 2 |
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 { |