diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-09-17 10:29:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-09-17 10:29:21 +0000 |
| commit | faefac1d912a14cd79b3a27a3f1f5f74077ad352 (patch) | |
| tree | 3244506078352bd779955ebd3a46ad49f66a3336 /perl-install | |
| parent | 696423272e9e9714b1afb01dbec5b551aba10d5d (diff) | |
| download | drakx-faefac1d912a14cd79b3a27a3f1f5f74077ad352.tar drakx-faefac1d912a14cd79b3a27a3f1f5f74077ad352.tar.gz drakx-faefac1d912a14cd79b3a27a3f1f5f74077ad352.tar.bz2 drakx-faefac1d912a14cd79b3a27a3f1f5f74077ad352.tar.xz drakx-faefac1d912a14cd79b3a27a3f1f5f74077ad352.zip | |
(raw) rename $user as $uid as it really what it is
(preparing for next commit)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/run_program.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index c4d195c45..3736f4dad 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -65,11 +65,11 @@ sub raw { my $home; if ($options->{as_user}) { - my $user; - $user = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID}); - $user ||= common::get_parent_uid(); - $options->{setuid} = getpwnam($user) if $user; - $home = $user->[7] if $user; + my $uid; + $uid = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID}); + $uid ||= common::get_parent_uid(); + $options->{setuid} = getpwnam($uid) if $uid; + $home = $uid->[7] if $uid; } local $ENV{HOME} = $home if $home; |