summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-02-28 16:51:28 +0000
committerOlivier Blin <oblin@mandriva.org>2006-02-28 16:51:28 +0000
commit96cf710c07b0d6f788418e4bbce057dbd1c236cb (patch)
tree5ad17399eef8935c4e792a25da5f19d2906c6c10 /perl-install
parent04bb93f094d89609a1a194ab1c7a73ac080dded7 (diff)
downloaddrakx-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.pm4
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});