summaryrefslogtreecommitdiffstats
path: root/perl-install/run_program.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 18:10:43 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-03 18:10:43 +0200
commit436b56f0633fed0483342ad14042fb33c7d789bf (patch)
tree8825df0c71f903857defc3014eeac94d84d637fa /perl-install/run_program.pm
parent55e0b20685ca389b8a0952a3dca0a52f43e5ecad (diff)
downloaddrakx-436b56f0633fed0483342ad14042fb33c7d789bf.tar
drakx-436b56f0633fed0483342ad14042fb33c7d789bf.tar.gz
drakx-436b56f0633fed0483342ad14042fb33c7d789bf.tar.bz2
drakx-436b56f0633fed0483342ad14042fb33c7d789bf.tar.xz
drakx-436b56f0633fed0483342ad14042fb33c7d789bf.zip
further simplify...
Diffstat (limited to 'perl-install/run_program.pm')
-rw-r--r--perl-install/run_program.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 7288ef816..9bba5f0a1 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -198,10 +198,7 @@ sub raw {
my $home;
if ($options->{as_user}) {
- my $uid;
- $uid = $ENV{PKEXEC_UID};
- $uid ||= common::get_parent_uid();
- $options->{setuid} = $uid;
+ $options->{setuid} = $ENV{PKEXEC_UID} ||= common::get_parent_uid();;
}
my $args = $options->{sensitive_arguments} ? '<hidden arguments>' : join(' ', @args);