summaryrefslogtreecommitdiffstats
path: root/perl-install/run_program.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 18:00:57 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 18:00:57 +0200
commit9dd598b045278b889cd9923225ebccf9bcaa9942 (patch)
tree22240251b2b42fed5655c6d184f702ccfd82e3c3 /perl-install/run_program.pm
parent97a49721274c5538f121811195e802669424c316 (diff)
downloaddrakx-9dd598b045278b889cd9923225ebccf9bcaa9942.tar
drakx-9dd598b045278b889cd9923225ebccf9bcaa9942.tar.gz
drakx-9dd598b045278b889cd9923225ebccf9bcaa9942.tar.bz2
drakx-9dd598b045278b889cd9923225ebccf9bcaa9942.tar.xz
drakx-9dd598b045278b889cd9923225ebccf9bcaa9942.zip
with polkit, it's always an UID, never a login
(fixing previous commit)
Diffstat (limited to 'perl-install/run_program.pm')
-rw-r--r--perl-install/run_program.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 300179832..86386d081 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -199,7 +199,7 @@ sub raw {
my $home;
if ($options->{as_user}) {
my $uid;
- $uid = $ENV{PKEXEC_UID} && getpwuid($ENV{PKEXEC_UID});
+ $uid = $ENV{PKEXEC_UID};
$uid ||= common::get_parent_uid();
my ($full_user) = grep { $_->[2] eq $uid } list_passwd();
$options->{setuid} = getpwnam($full_user->[0]) if $full_user->[0];