From fcf1eb1899c53d56bdd77dae1c4dd99d07f2ae8a Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 3 Nov 2005 10:43:50 +0000
Subject: Provide our own tempdir function, that doesn't require File::Temp if
 it's not installed on the system

---
 urpm/sys.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'urpm')

diff --git a/urpm/sys.pm b/urpm/sys.pm
index 01abaf2b..d398120f 100644
--- a/urpm/sys.pm
+++ b/urpm/sys.pm
@@ -1,5 +1,7 @@
 package urpm::sys;
 
+# $Id$
+
 use strict;
 
 #- find used mount point from a pathname, use a optional mode to allow
@@ -150,4 +152,18 @@ sub apply_delta_rpm {
     -e $rpm ? $rpm : '';
 }
 
+our $tempdir_template = '/tmp/urpm.XXXXXX';
+sub mktempdir {
+    my $tmpdir;
+    eval { require File::Temp };
+    if ($@) {
+	#- fall back to external command (File::Temp not in perl-base)
+	$tmpdir = qx(mktemp -d $tempdir_template);
+	chomp $tmpdir;
+    } else {
+	$tmpdir = File::Temp::tempdir($tempdir_template);
+    }
+    return $tmpdir;
+}
+
 1;
-- 
cgit v1.2.1