I have a script that runs a test on a list of test_objects. These tests all run concurrently using threads. Should a test fail at anytime, I would like to stop all other running threads and safely exit out of the program.
sub test1252 {
my @jobs = ();
foreach my $test_obj (@objects) {
push @jobs, async {
my $rc = test($test_obj);
if ($rc ne 0) {
print "Test Failed for $test_obj\n";
local $SIG{'KILL'} = sub {threads->exit();};
$_->kill('KILL')->join() for @jobs;
exit $code_blue;
}
};
}
$_->join for @jobs;
}
I get something like this using 'kill' with the handler
Perl exited with active threads:
9 running and unjoined
0 finished and unjoined
0 running and detached
It doesn't appear that all the threads have died upon program exit, so I'm sure I'm not doing something right...