diff --git a/lib/LDV/Filebin.pm b/lib/LDV/Filebin.pm index 2587861..39a7cb2 100644 --- a/lib/LDV/Filebin.pm +++ b/lib/LDV/Filebin.pm @@ -68,7 +68,9 @@ sub save { die "file too large\n" if ($upload->size > $conf->{file_maxsize}); unless ($upload->asset->is_file) { - $upload->asset->to_file; + my $file = $upload->asset->to_file; + $file->cleanup(1); + $upload->asset($file); } my $file = {