summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
inline | side by side (from parent 1:
c59e951)
This prevents from outputting the plan several times at the end when
the process is forked and 'no_plan' was specified.
if ($] >= 5.008 and $INC{'threads.pm'}) {
my $use_ithreads = do {
require Config;
if ($] >= 5.008 and $INC{'threads.pm'}) {
my $use_ithreads = do {
require Config;
+ if ($main_process == $$ and not $?) {
lock $plan if THREADSAFE;
if (defined $plan) {
lock $plan if THREADSAFE;
if (defined $plan) {