summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-09-17 10:29:21 +0000
committerThierry Vignaud <tv@mageia.org>2012-09-17 10:29:21 +0000
commitf305e0e772345b54c100349657005eaf37784905 (patch)
tree3244506078352bd779955ebd3a46ad49f66a3336 /perl-install
parent9476cc653433f719b371a7c5eaccb1af821cc43e (diff)
downloaddrakx-backup-do-not-use-f305e0e772345b54c100349657005eaf37784905.tar
drakx-backup-do-not-use-f305e0e772345b54c100349657005eaf37784905.tar.gz
drakx-backup-do-not-use-f305e0e772345b54c100349657005eaf37784905.tar.bz2
drakx-backup-do-not-use-f305e0e772345b54c100349657005eaf37784905.tar.xz
drakx-backup-do-not-use-f305e0e772345b54c100349657005eaf37784905.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.pm10
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;