diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-09-17 10:29:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-09-17 10:29:33 +0000 |
| commit | 250dcee065e54f545f690762efc0232f38b3a2fd (patch) | |
| tree | b04fea52064501cb5038079b6f0e2d1d7b891664 | |
| parent | e58ff2798e03ca2ab293728c0317c49758601456 (diff) | |
| download | drakx-250dcee065e54f545f690762efc0232f38b3a2fd.tar drakx-250dcee065e54f545f690762efc0232f38b3a2fd.tar.gz drakx-250dcee065e54f545f690762efc0232f38b3a2fd.tar.bz2 drakx-250dcee065e54f545f690762efc0232f38b3a2fd.tar.xz drakx-250dcee065e54f545f690762efc0232f38b3a2fd.zip | |
(raw) rename $user as $uid as it really what it is
(preparing for next commit)
(backported from trunk)
| -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 7c0ba92c7..fbc721d82 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -57,11 +57,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; |