From 15bb5068442bac799f685742bdd70cda018fda11 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 12 Oct 2009 16:35:10 +0000
Subject: explain

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

(limited to 'perl-install')

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