use scratch disk if it exists

metacpan · Apr 27, 2016 · c34ae31 · c34ae31
1 parent 549d2d3
commit c34ae31
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;
     },
 );