diff options
| -rw-r--r-- | perl-install/run_program.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index d30e917c9..e1a6f7f04 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -112,6 +112,7 @@ sub raw { if ($options->{setuid}) { require POSIX; $ENV{LOGNAME} = getpwuid($options->{setuid}) || $ENV{LOGNAME}; + # drop privileges: POSIX::setuid($options->{setuid}); } |