From 03619f53a8827b58e64752dabf13b53d2837b821 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/NEWS      | 2 ++
 perl-install/common.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 8a17acfd2..a00a3ae38 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- fix crashing on creating temp file if temp dir doesn't exist (mga#1396)
+
 Version 13.70.1 - 22 November 2011
 
 - drakbug:
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