From 436b56f0633fed0483342ad14042fb33c7d789bf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 3 Jun 2016 18:10:43 +0200
Subject: further simplify...

---
 perl-install/run_program.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/run_program.pm')

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);
-- 
cgit v1.2.1