From 55dcf3f9b01b61696a51182441cd458a464554ec Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 10 Dec 2011 13:36:01 +0000 Subject: (raw) fix $HOME for all when runing as another user instead of root (mga#287) make rpmdrake fix more generic --- perl-install/NEWS | 2 ++ perl-install/run_program.pm | 3 +++ 2 files changed, 5 insertions(+) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 05cc5452a..00b7bb3b6 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- fix $HOME for all when runing as another user instead of root (mga#287) + Version 13.72 - 10 December 2011 - drakhelp: make it work somewhat despite lack of doc diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 82bdb5964..65e3a0f56 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -48,12 +48,15 @@ sub raw { ($stdout_mode, $stdout_raw, @args) = @args if $args[0] =~ /^>>?$/; ($stderr_mode, $stderr_raw, @args) = @args if $args[0] =~ /^2>>?$/; + my $home; if ($options->{as_user}) { my $user; $user = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID}); $user ||= common::get_parent_uid(); $options->{setuid} = getpwnam($user) if $user; + $home = $user->[7] if $user; } + local $ENV{HOME} = $home if $home; my $args = $options->{sensitive_arguments} ? '' : join(' ', @args); log::explanations("running: $real_name $args" . ($root ? " with root $root" : "")); -- cgit v1.2.1