diff options
| -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; |