'threads' =>
{
'MAINTAINER' => 'jdhedden',
- 'DISTRIBUTION' => 'JDHEDDEN/threads-1.82.tar.gz',
+ 'DISTRIBUTION' => 'JDHEDDEN/threads-1.83.tar.gz',
'FILES' => q[dist/threads],
'EXCLUDED' => [ qr{^examples/},
qw(t/pod.t
ok(! defined($rc), 'Exited: threads->exit()');
-run_perl(prog => 'use threads 1.82;' .
+run_perl(prog => 'use threads 1.83;' .
'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 1.82 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.83 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 1.82;' .
+my $out = run_perl(prog => 'use threads 1.83;' .
'threads->create(sub {' .
' exit(99);' .
'});' .
like($out, '1 finished and unjoined', "exit(status) in thread");
-$out = run_perl(prog => 'use threads 1.82 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.83 qw(exit thread_only);' .
'threads->create(sub {' .
' threads->set_thread_exit_only(0);' .
' exit(99);' .
like($out, '1 finished and unjoined', "set_thread_exit_only(0)");
-run_perl(prog => 'use threads 1.82;' .
+run_perl(prog => 'use threads 1.83;' .
'threads->create(sub {' .
' $SIG{__WARN__} = sub { exit(99); };' .
' die();' .
# bugid #24165
-run_perl(prog => 'use threads 1.82;' .
+run_perl(prog => 'use threads 1.83;' .
'sub a{threads->create(shift)} $t = a sub{};' .
'$t->tid; $t->join; $t->tid',
nolib => ($ENV{PERL_CORE}) ? 0 : 1,