summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 17:40:42 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 17:40:42 +0200
commit1446f4ac0b364c041d7de0e5a186e9709a300388 (patch)
tree67e6ec7408dab5fac9fd181f92891d906c2eccba /perl-install
parent2cfc8c4e3c39c744214e7bc4793f0ef8eda52bb1 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/run_program.pm2
2 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 3adbfad3d..03799a6d7 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- running commands as user:
+ o fix the fallback when the helper didn't provide the real UID (mga#18288)
+
Version 17.33 - 27 May 2016
- list all drivers needing a proprietary driver
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;