From 81e0cf5ae13264ce78af6c9747c99460b656e994 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 Apr 2004 09:46:27 +0000
Subject: create ~/tmp when needed

---
 perl-install/run_program.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install/run_program.pm')

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index eb6a0a533..5bfd0352a 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -58,8 +58,13 @@ sub raw {
     }
     
     $ENV{HOME} || $::isInstall or $ENV{HOME} = '/root';
-    my $stdout = $stdout_raw && (ref($stdout_raw) ? "$ENV{HOME}/tmp/.drakx-stdout.$$" : "$root$stdout_raw");
-    my $stderr = $stderr_raw && (ref($stderr_raw) ? "$ENV{HOME}/tmp/.drakx-stderr.$$" : "$root$stderr_raw");
+    my $tmpdir = sub {
+	my $dir = "$ENV{HOME}/tmp";
+	-d $dir or mkdir($dir, 0700);
+	$dir;
+    };
+    my $stdout = $stdout_raw && (ref($stdout_raw) ? $tmpdir->() . "/.drakx-stdout.$$" : "$root$stdout_raw");
+    my $stderr = $stderr_raw && (ref($stderr_raw) ? $tmpdir->() . "/.drakx-stderr.$$" : "$root$stderr_raw");
 
     if (my $pid = fork()) {
 	if ($options->{detach}) {
-- 
cgit v1.2.1