diff options
Diffstat (limited to 'bin/z')
-rwxr-xr-x | bin/z | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -95,8 +95,7 @@ sub arg_for($arg) { my $type = trim `file -i $_`; if (any { $type eq $_ } keys %TYPES) { - my $template = File::Basename::basename $arg . '.XXXXXX'; - my ($fh, $tmpname) = File::Temp::tempfile(TEMPLATE => $template); + my ($fh, $tmpname) = File::Temp::tempfile(); push @tmpfiles, $tmpname; my @command = @{$TYPES{$type}}; print $fh `@command $arg`; |