summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/run_program.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 425ad16cf..a891754b0 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -111,6 +111,7 @@ sub raw {
} else {
if ($options->{setuid}) {
require POSIX;
+ $ENV{'LOGNAME'} = $options->{setuid};
POSIX::setuid($options->{setuid});
}