diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-03 18:10:43 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-03 18:10:43 +0200 |
commit | 436b56f0633fed0483342ad14042fb33c7d789bf (patch) | |
tree | 8825df0c71f903857defc3014eeac94d84d637fa /perl-install/run_program.pm | |
parent | 55e0b20685ca389b8a0952a3dca0a52f43e5ecad (diff) | |
download | drakx-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.pm | 5 |
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); |