diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-10-25 09:17:22 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-10-25 09:17:22 +0000 |
| commit | 5a5ddb3422a731d9876c587363659d260db94e15 (patch) | |
| tree | fe4c171564495bb9dcbbc6c21e97fd3f1c9dc787 /lib/CPANPLUS | |
| parent | 0d4d1c152f27e79bb2170012c2b85f944e06d9e9 (diff) | |
| download | perl-5a5ddb3422a731d9876c587363659d260db94e15.tar.gz | |
Emergency fix for /tmp dir cleanup's for smokers.
Rest of the patch to sync CPANPLUS will follow later
p4raw-id: //depot/perl@32191
Diffstat (limited to 'lib/CPANPLUS')
| -rw-r--r-- | lib/CPANPLUS/Internals/Source.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 ); |