use IO::File;
use File::Temp 0.14;
+use File::Spec;
=head1 NAME
$part->{filename} = $filename;
if ( $filename ne "" ) {
- my $suffix = $filename =~ /[^.]+(\.[^\\\/]+)$/ ? $1 : q{};
+ my $basename = (File::Spec->splitpath($filename))[2];
+ my $suffix = $basename =~ /[^.]+(\.[^\\\/]+)$/ ? $1 : q{};
my $fh = File::Temp->new( UNLINK => 0, DIR => $self->tmpdir, SUFFIX => $suffix );