my $fh = File::Temp->new( UNLINK => 0 );
$fh->write( $part->content ) or die $!;
+ $fh->flush or die $!;
my $upload = Catalyst::Request::Upload->new(
filename => $parameters{filename},
$fh->close;
push( @uploads, $parameters{name}, $upload );
- push( @params, $parameters{name}, $fh );
+ push( @params, $parameters{name}, $parameters{filename} );
}
else {
push( @params, $parameters{name}, $part->content );