- $self->{tmp_file} = $tmp_file;
- my ($vol, $dir) = File::Spec->splitpath($self->{tmp_file});
- $self->{tmp_dir} = File::Spec->catpath($vol, $dir, '');
+ $self->{tmp_file} = $tmp_file;
+ my ($vol, $dir) = File::Spec->splitpath($self->{tmp_file});
+ $self->{tmp_dir} = File::Spec->catpath($vol, $dir, '');