Merge pull request #465 from CPAN-API/leo/use_scratch

use scratch disk if it exists
metacpan · Apr 28, 2016 · 463a18d · 463a18d
2 parents 549d2d3 + c34ae31
commit 463a18d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Model/Archive.pm b/lib/MetaCPAN/Model/Archive.pm
@@ -77,7 +77,11 @@ has _tempdir => (
     init_arg => undef,
     lazy     => 1,
     default  => sub {
-        return File::Temp->newdir;
+
+        my $scratch_disk = '/mnt/scratch_disk';
+        return -d $scratch_disk
+            ? File::Temp->newdir('/mnt/scratch_disk/tempXXXXX')
+            : File::Temp->newdir;
     },
 );