Added benchmark

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

diff --git a/lib/HTTP/Body/MultiPart.pm b/lib/HTTP/Body/MultiPart.pm
index 6e7a21e..e11f12d 100644 (file)
--- a/lib/HTTP/Body/MultiPart.pm
+++ b/lib/HTTP/Body/MultiPart.pm
@@ -4,6 +4,7 @@ use strict;
 use base 'HTTP::Body';
 use bytes;
 
+use IO::File;
 use File::Temp 0.14;
 
 =head1 NAME
@@ -272,7 +273,7 @@ sub handler {
 
         if ($filename) {
 
-            my $fh = File::Temp->new( UNLINK => 0 );
+            my $fh = File::Temp->new; #( UNLINK => 0 );
 
             $part->{fh}       = $fh;
             $part->{tempname} = $fh->filename;