diff options
| author | Olivier Blin <oblin@mandriva.org> | 2006-02-28 16:51:28 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2006-02-28 16:51:28 +0000 |
| commit | 96cf710c07b0d6f788418e4bbce057dbd1c236cb (patch) | |
| tree | 5ad17399eef8935c4e792a25da5f19d2906c6c10 /perl-install | |
| parent | 04bb93f094d89609a1a194ab1c7a73ac080dded7 (diff) | |
| download | drakx-96cf710c07b0d6f788418e4bbce057dbd1c236cb.tar drakx-96cf710c07b0d6f788418e4bbce057dbd1c236cb.tar.gz drakx-96cf710c07b0d6f788418e4bbce057dbd1c236cb.tar.bz2 drakx-96cf710c07b0d6f788418e4bbce057dbd1c236cb.tar.xz drakx-96cf710c07b0d6f788418e4bbce057dbd1c236cb.zip | |
fix indentation
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 722c19828..e41b51c13 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -69,7 +69,7 @@ sub create_user { } require authentication; - my $symlink_home_from = $u->{rename_from} && (getpwnam($u->{rename_from}))[7]; + my $symlink_home_from = $u->{rename_from} && (getpwnam($u->{rename_from}))[7]; run_program::raw({ root => $::prefix, sensitive_arguments => 1 }, ($u->{rename_from} ? 'usermod' : 'adduser'), '-p', authentication::user_crypted_passwd($u, $isMD5), @@ -80,7 +80,7 @@ sub create_user { ($u->{rename_from} ? ('-l', $u->{name}, $u->{rename_from}) : $u->{name})); - symlink($u->{home}, $symlink_home_from) if $symlink_home_from; + symlink($u->{home}, $symlink_home_from) if $symlink_home_from; } my (undef, undef, $uid, $gid, undef, undef, undef, $home) = getpwnam($u->{name}); |