diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-03 17:40:42 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-03 17:40:42 +0200 |
| commit | 1446f4ac0b364c041d7de0e5a186e9709a300388 (patch) | |
| tree | 67e6ec7408dab5fac9fd181f92891d906c2eccba /perl-install/run_program.pm | |
| parent | 2cfc8c4e3c39c744214e7bc4793f0ef8eda52bb1 (diff) | |
| download | drakx-1446f4ac0b364c041d7de0e5a186e9709a300388.tar drakx-1446f4ac0b364c041d7de0e5a186e9709a300388.tar.gz drakx-1446f4ac0b364c041d7de0e5a186e9709a300388.tar.bz2 drakx-1446f4ac0b364c041d7de0e5a186e9709a300388.tar.xz drakx-1446f4ac0b364c041d7de0e5a186e9709a300388.zip | |
uid guess: fix the fallback (mga#18288)
(when the helper didn't provide the real UID)
Diffstat (limited to 'perl-install/run_program.pm')
| -rw-r--r-- | perl-install/run_program.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index fc73c294a..0b5776a2d 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -201,8 +201,8 @@ sub raw { my $uid; $uid = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID}); $uid ||= common::get_parent_uid(); - $options->{setuid} = getpwnam($uid) if $uid; my ($full_user) = grep { $_->[2] eq $uid } list_passwd(); + $options->{setuid} = getpwnam($full_user->[0]) if $full_user->[0]; $home = $full_user->[7] if $full_user; } local $ENV{HOME} = $home if $home; |