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},
- size => ( stat $fh )[7],
+ size => ( $fh->stat )[7],
tempname => $fh->filename,
type => $part->content_type
);
$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 );