This is needed when run.pl is run under timeout utility. It sends the TERM
signal to the children.
my $bootcmd = scalar @ARGV ? "'".join("' '", @ARGV)."'" : "$FindBin::Bin/boot";
$SIG{INT} = sub { kill_boot(); exit; };
my $bootcmd = scalar @ARGV ? "'".join("' '", @ARGV)."'" : "$FindBin::Bin/boot";
$SIG{INT} = sub { kill_boot(); exit; };
+ $SIG{HUP} = sub { kill_boot(); exit; };
+ $SIG{ALRM} = sub { kill_boot(); exit; };
+ $SIG{TERM} = sub { kill_boot(); exit; };
+ $SIG{QUIT} = sub { kill_boot(); exit; };
pipe($boot, $wh) || die("pipe: $!");
my $pid = fork() // die("fork: $!");
pipe($boot, $wh) || die("pipe: $!");
my $pid = fork() // die("fork: $!");