summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-02-23 10:02:03 +0000
committerOlivier Blin <oblin@mandriva.org>2006-02-23 10:02:03 +0000
commitf84c186da0cd078b3ab842e6f38c5b31d28e415e (patch)
tree103c091500f965480a15d09533f8f218f4f45e23 /perl-install/any.pm
parent92b63febdc5244af0cfc2c199b1446c8a6a1b4e9 (diff)
downloaddrakx-f84c186da0cd078b3ab842e6f38c5b31d28e415e.tar
drakx-f84c186da0cd078b3ab842e6f38c5b31d28e415e.tar.gz
drakx-f84c186da0cd078b3ab842e6f38c5b31d28e415e.tar.bz2
drakx-f84c186da0cd078b3ab842e6f38c5b31d28e415e.tar.xz
drakx-f84c186da0cd078b3ab842e6f38c5b31d28e415e.zip
perl_checker compliance
Diffstat (limited to 'perl-install/any.pm')
-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 012ceda29..bcfe2d2f4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -74,7 +74,7 @@ sub create_user {
'-p', authentication::user_crypted_passwd($u, $isMD5),
if_($uid, '-u', $uid), if_($gid, '-g', $gid),
if_($u->{realname}, '-c', $u->{realname}),
- if_($u->{home}, '-d', $u->{home}, if_($u->{rename_from} ,'-m')),
+ if_($u->{home}, '-d', $u->{home}, if_($u->{rename_from}, '-m')),
if_($u->{shell}, '-s', $u->{shell}),
($u->{rename_from}
? ('-l', $u->{name}, , $u->{rename_from})