woremacx's file upload tempdir patch, applied to HTTP::Body

[catagits/HTTP-Body.git] / lib / HTTP / Body / Parser / MultiPart.pm

diff --git a/lib/HTTP/Body/Parser/MultiPart.pm b/lib/HTTP/Body/Parser/MultiPart.pm
index cce6585..9f55747 100644 (file)
--- a/lib/HTTP/Body/Parser/MultiPart.pm
+++ b/lib/HTTP/Body/Parser/MultiPart.pm
@@ -205,7 +205,9 @@ sub handler {
 
         if ($filename) {
 
-            my $fh = File::Temp->new( UNLINK => 0 );
+            my $fh = File::Temp->new( UNLINK => 0,
+                                     (defined $self->{tmpdir} ? ( DIR => $self->{tmpdir} ) : ())
+                                 );
 
             $part->{fh}       = $fh;
             $part->{tempname} = $fh->filename;