Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
I get something like this using 'kill' with the handlersub 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; }
It doesn't appear that all the threads have died upon program exit, so I'm sure I'm not doing something right...Perl exited with active threads: 9 running and unjoined 0 finished and unjoined 0 running and detached
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How to simply terminate all running threads?
by BrowserUk (Patriarch) on Sep 03, 2015 at 20:00 UTC | |
by Anonymous Monk on Sep 03, 2015 at 20:12 UTC | |
by BrowserUk (Patriarch) on Sep 03, 2015 at 21:16 UTC | |
|
Re: How to simply terminate all running threads?
by Anonymous Monk on Sep 04, 2015 at 00:03 UTC | |
by BrowserUk (Patriarch) on Sep 04, 2015 at 00:28 UTC | |
by Anonymous Monk on Sep 04, 2015 at 16:06 UTC |