[PATCH 37/37] t/check-www-inbox: trap SIGINT for File::Temp destruction

[Eric Wong]

Otherwise, temporary GDBM files don't get unlinked
when I SIGINT the process.
---
 t/check-www-inbox.perl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl
index 6232f16..1e88e95 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) {
-- 
EW

--
unsubscribe: meta+unsubscr...@public-inbox.org
archive: https://public-inbox.org/meta/