X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTTP%2FBody%2FMultiPart.pm;h=78212cf1447f6872f240fbe8cb523ae5283a1d78;hb=3debb7c03ca0bf95876fec1b62ec76026cce434a;hp=763838bdfddec8e02342e0b7c058f4f8c01f8bc8;hpb=2759ad98dfed7d927a85b5c8b7b05e9c44aef420;p=catagits%2FHTTP-Body.git

diff --git a/lib/HTTP/Body/MultiPart.pm b/lib/HTTP/Body/MultiPart.pm
index 763838b..78212cf 100644
--- a/lib/HTTP/Body/MultiPart.pm
+++ b/lib/HTTP/Body/MultiPart.pm
@@ -270,7 +270,7 @@ sub handler {
             $part->{filename} = $filename;
 
             if ( $filename ne "" ) {
-                my $fh = File::Temp->new( UNLINK => 0 );
+                my $fh = File::Temp->new( UNLINK => 0, DIR => $self->tmpdir );
 
                 $part->{fh}       = $fh;
                 $part->{tempname} = $fh->filename;