$part->{fh} = $fh;
$part->{tempname} = $fh->filename;
- }
+ }
}
}
if ( $part->{done} ) {
if ( exists $part->{filename} ) {
- if ( $part->{filename} ne "" ) {
- $part->{fh}->close;
+ if ( $part->{filename} ne "" ) {
+ $part->{fh}->close if defined $part->{fh};
delete @{$part}{qw[ data done fh ]};