1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 3736f4dad..a45b5b79b 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -69,7 +69,8 @@ sub raw {
         $uid = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID});
         $uid ||= common::get_parent_uid();
         $options->{setuid} = getpwnam($uid) if $uid;
-        $home = $uid->[7] if $uid;
+        my ($full_user) = grep { $_->[2] eq $uid } list_passwd();
+        $home = $full_user->[7] if $full_user;
     }
     local $ENV{HOME} = $home if $home;