summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2010-02-11 16:32:42 +0000
committerPascal Terjan <pterjan@mandriva.org>2010-02-11 16:32:42 +0000
commitea28a883c4e141104f2011cef5c19288b6ec6e29 (patch)
tree0a9462e9a25476c19e456bba30df1c1c10e85f1b
parent7c34e66129d9a6b83d89f4614ffe34f552590afc (diff)
downloaddrakx-backup-do-not-use-ea28a883c4e141104f2011cef5c19288b6ec6e29.tar
drakx-backup-do-not-use-ea28a883c4e141104f2011cef5c19288b6ec6e29.tar.gz
drakx-backup-do-not-use-ea28a883c4e141104f2011cef5c19288b6ec6e29.tar.bz2
drakx-backup-do-not-use-ea28a883c4e141104f2011cef5c19288b6ec6e29.tar.xz
drakx-backup-do-not-use-ea28a883c4e141104f2011cef5c19288b6ec6e29.zip
run_program: use home and logname of user we are dropping privileges to, not 501
-rw-r--r--perl-install/Makefile.config2
-rw-r--r--perl-install/NEWS4
-rw-r--r--perl-install/run_program.pm2
3 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/Makefile.config b/perl-install/Makefile.config
index 741bf03d5..c0a01766c 100644
--- a/perl-install/Makefile.config
+++ b/perl-install/Makefile.config
@@ -1,5 +1,5 @@
# -*- Makefile -*-
-VERSION:=12.77.5
+VERSION:=12.77.6
SUDO = sudo
TMPDIR = /tmp
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 8f7f85220..00ecc5a30 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,7 @@
+Version 12.77.6 - 11 February 2010
+- run_program:
+ o use home and logname of user we are dropping privileges to, not 501
+
Version 12.77.5 - 04 February 2010
- diskdrake:
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index a59f7a08b..e5ca7d170 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -119,7 +119,7 @@ sub raw {
} else {
if ($options->{setuid}) {
require POSIX;
- my ($logname, $home) = (getpwuid(501))[0,7];
+ my ($logname, $home) = (getpwuid($options->{setuid}))[0,7];
$ENV{LOGNAME} = $logname if $logname;
# if we were root and are going to drop privilege, keep a copy of the X11 cookie: