Set UNLINK=>1 in tempfile() to ensure cleanup if die() happens

1 files changed, 1 insertions, 2 deletions

diff --git a/vipe b/vipe
index 2bf640d..8986d4e 100755
--- a/vipe
+++ b/vipe
@@ -43,7 +43,7 @@ use File::Temp q{tempfile};
 
 $/=undef;
 
-my ($fh, $tmp)=tempfile();
+my ($fh, $tmp)=tempfile(UNLINK => 1);
 die "cannot create tempfile" unless $fh;
 print ($fh <STDIN>) || die "write temp: $!";
 close $fh;
@@ -71,4 +71,3 @@ if ($ret != 0) {
 open (IN, $tmp) || die "$0: cannot read $tmp: $!\n";
 print (OUT <IN>) || die "write failure: $!";
 close IN;
-unlink($tmp);