summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/run_program.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 26b73a2d0..f74edb5b6 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -54,9 +54,9 @@ sub raw {
$root ? ($root .= '/') : ($root = '');
- $ENV{HOME} || $::isInstall or $ENV{HOME} = '/root';
+ $ENV{HOME} || $::isInstall or $ENV{HOME} = '/root'; # TO REMOVE
my $tmpdir = sub {
- my $dir = "$ENV{HOME}/tmp";
+ my $dir = $::isInstall ? '/tmp' : $< == 0 ? '/root/tmp' : "$ENV{HOME}/tmp";
-d $dir or mkdir($dir, 0700);
$dir;
};