From 9dd598b045278b889cd9923225ebccf9bcaa9942 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 3 Jun 2016 18:00:57 +0200
Subject: with polkit, it's always an UID, never a login

(fixing previous commit)
---
 perl-install/run_program.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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