From c440c879d38e67f62bdbb74f616dc84d20899c33 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 21 Jan 2019 06:51:23 +0000 Subject: t/check-www-inbox: trap SIGINT for File::Temp destruction Otherwise, temporary GDBM files don't get unlinked when I SIGINT the process. --- t/check-www-inbox.perl | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index 6232f164..1e88e952 100644 --- a/t/check-www-inbox.perl +++ b/t/check-www-inbox.perl @@ -14,6 +14,7 @@ use POSIX qw(:sys_wait_h); use Time::HiRes qw(gettimeofday tv_interval); use WWW::Mechanize; use Data::Dumper; +our $tmp_owner = $$; my $nproc = 4; my $slow = 0.5; my %opts = ( @@ -34,6 +35,7 @@ my $atom_check = eval { } if $xmlstarlet; my %workers; +$SIG{INT} = sub { exit 130 }; $SIG{TERM} = sub { exit 0 }; $SIG{CHLD} = sub { while (1) { -- cgit v1.2.3-24-ge0c7