about summary refs log tree commit homepage
path: root/t/check-www-inbox.perl
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-01-21 06:51:23 +0000
committerEric Wong <e@80x24.org>2019-01-21 06:53:35 +0000
commitc440c879d38e67f62bdbb74f616dc84d20899c33 (patch)
treebdc7f5701767968625889b4eb3741fcea88b2a08 /t/check-www-inbox.perl
parente2708d16d8f801bdf3a61306d07a127c3c9176ee (diff)
downloadpublic-inbox-c440c879d38e67f62bdbb74f616dc84d20899c33.tar.gz
Otherwise, temporary GDBM files don't get unlinked
when I SIGINT the process.
Diffstat (limited to 't/check-www-inbox.perl')
-rw-r--r--t/check-www-inbox.perl2
1 files changed, 2 insertions, 0 deletions
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) {