From 03864dc61ca43ad83e2fe215d8b5438d2b351a3a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 27 Nov 2011 00:49:50 +0000
Subject: (secured_file) fix crashing on creating temp file if temp dir doesn't
 exist (mga#1396)

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

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index fb42180c7..30ef121e2 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -267,6 +267,7 @@ sub open_file {
 
 sub secured_file {
     my ($f) = @_;
+    mkdir_p(dirname($f));
     c::is_secure_file($f) or die "cannot ensure a safe $f";
     $f;
 }
-- 
cgit v1.2.1