From 5a5ddb3422a731d9876c587363659d260db94e15 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <h.m.brand@xs4all.nl>
Date: Thu, 25 Oct 2007 09:17:22 +0000
Subject: Emergency fix for /tmp dir cleanup's for smokers. Rest of the patch
 to sync CPANPLUS will follow later

p4raw-id: //depot/perl@32191
---
 lib/CPANPLUS/Internals/Source.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/CPANPLUS/Internals/Source.pm b/lib/CPANPLUS/Internals/Source.pm
index 49e06532a0..d1308f6617 100644
--- a/lib/CPANPLUS/Internals/Source.pm
+++ b/lib/CPANPLUS/Internals/Source.pm
@@ -1252,7 +1252,11 @@ sub __update_custom_module_source {
     
     my $uri =  join '/', $remote, $conf->_get_source('custom_index');
     my $ff  =  File::Fetch->new( uri => $uri );           
-    my $dir =  tempdir();
+
+    ### tempdir doesn't clean up by default, as opposed to tempfile()
+    ### so add it explicitly.
+    my $dir =  tempdir( CLEANUP => 1 );
+    
     my $res =  do {  local $File::Fetch::WARN = 0;
                     local $File::Fetch::WARN = 0;
                     $ff->fetch( to => $dir );
-- 
cgit v1.2.1