keep temporary files

This commit is contained in:
Marcin Junczys-Dowmunt 2016-04-22 23:40:53 +02:00
parent 5744e10989
commit f1e2ebd98e

View File

@ -5,6 +5,8 @@ use Getopt::Long;
use File::Temp qw(tempfile);
use POSIX;
$File::Temp::KEEP_ALL = 1;
my $PID = $$;
$SIG{TERM} = $SIG{INT} = $SIG{QUIT} = sub { die; };