ok(! defined($rc), 'Exited: threads->exit()');
-run_perl(prog => 'use threads 2.09;' .
+run_perl(prog => 'use threads 2.12;' .
'threads->exit(86);' .
'exit(99);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
-run_perl(prog => 'use threads 2.09 qw(exit thread_only);' .
+run_perl(prog => 'use threads 2.12 qw(exit thread_only);' .
'threads->create(sub { exit(99); })->join();' .
'exit(86);',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
}
-my $out = run_perl(prog => 'use threads 2.09;' .
+my $out = run_perl(prog => 'use threads 2.12;' .
'threads->create(sub {' .
' exit(99);' .
'});' .
like($out, qr/1 finished and unjoined/, "exit(status) in thread");
-$out = run_perl(prog => 'use threads 2.09 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 2.12 qw(exit thread_only);' .
'threads->create(sub {' .
' threads->set_thread_exit_only(0);' .
' exit(99);' .
like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)");
-run_perl(prog => 'use threads 2.09;' .
+run_perl(prog => 'use threads 2.12;' .
'threads->create(sub {' .
' $SIG{__WARN__} = sub { exit(99); };' .
' die();' .
# bugid #24165
-run_perl(prog => 'use threads 2.09;' .
+run_perl(prog => 'use threads 2.12;' .
'sub a{threads->create(shift)} $t = a sub{};' .
'$t->tid; $t->join; $t->tid',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,
MUTEX_UNLOCK(&my_pool->create_destruct_mutex);
return (thread);
+#if defined(__clang__) || defined(__clang)
CLANG_DIAG_IGNORE(-Wthread-safety);
/* warning: mutex 'thread->mutex' is not held on every path through here [-Wthread-safety-analysis] */
+#endif
}
#if defined(__clang__) || defined(__clang)
CLANG_DIAG_RESTORE;