In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/95ec88f91eb8b0df06820832434e1de7ea98394e?hp=9ec93952bf7c183cc01466806c75ca9fcbc2548f>
- Log ----------------------------------------------------------------- commit 95ec88f91eb8b0df06820832434e1de7ea98394e Author: jdhedden <[email protected]> Date: Mon May 16 13:41:39 2016 -0400 Upgrade to threads 2.08 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- dist/threads/lib/threads.pm | 13 +++++++++---- dist/threads/t/exit.t | 10 +++++----- dist/threads/t/thread.t | 2 +- 4 files changed, 16 insertions(+), 11 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a7868ea..a90e302 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1177,7 +1177,7 @@ use File::Glob qw(:case); }, 'threads' => { - 'DISTRIBUTION' => 'JDHEDDEN/threads-2.07.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/threads-2.08.tar.gz', 'FILES' => q[dist/threads], 'EXCLUDED' => [ qr{^examples/}, diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index 39761be..182c359 100644 --- a/dist/threads/lib/threads.pm +++ b/dist/threads/lib/threads.pm @@ -5,7 +5,7 @@ use 5.008; use strict; use warnings; -our $VERSION = '2.07'; +our $VERSION = '2.08'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -134,7 +134,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 2.07 +This document describes threads version 2.08 =head1 WARNING @@ -1086,8 +1086,11 @@ Perl 5.8.0 or later =head1 SEE ALSO -L<threads> Discussion Forum on CPAN: -L<http://www.cpanforum.com/dist/threads> +threads on MetaCPAN: +L<https://metacpan.org/release/threads> + +Code repository for CPAN distribution: +L<https://github.com/Dual-Life/threads> L<threads::shared>, L<perlthrtut> @@ -1100,6 +1103,8 @@ L<http://lists.perl.org/list/ithreads.html> Stack size discussion: L<http://www.perlmonks.org/?node_id=532956> +Sample code in the I<examples> directory of this distribution on CPAN. + =head1 AUTHOR Artur Bergman E<lt>sky AT crucially DOT netE<gt> diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t index 16d7a7a..d9c4aa7 100644 --- a/dist/threads/t/exit.t +++ b/dist/threads/t/exit.t @@ -48,7 +48,7 @@ my $rc = $thr->join(); ok(! defined($rc), 'Exited: threads->exit()'); -run_perl(prog => 'use threads 2.07;' . +run_perl(prog => 'use threads 2.08;' . 'threads->exit(86);' . 'exit(99);', nolib => ($ENV{PERL_CORE}) ? 0 : 1, @@ -98,7 +98,7 @@ $rc = $thr->join(); ok(! defined($rc), 'Exited: $thr->set_thread_exit_only'); -run_perl(prog => 'use threads 2.07 qw(exit thread_only);' . +run_perl(prog => 'use threads 2.08 qw(exit thread_only);' . 'threads->create(sub { exit(99); })->join();' . 'exit(86);', nolib => ($ENV{PERL_CORE}) ? 0 : 1, @@ -108,7 +108,7 @@ run_perl(prog => 'use threads 2.07 qw(exit thread_only);' . is($?>>8, 86, "'use threads 'exit' => 'thread_only'"); } -my $out = run_perl(prog => 'use threads 2.07;' . +my $out = run_perl(prog => 'use threads 2.08;' . 'threads->create(sub {' . ' exit(99);' . '});' . @@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 2.07;' . like($out, qr/1 finished and unjoined/, "exit(status) in thread"); -$out = run_perl(prog => 'use threads 2.07 qw(exit thread_only);' . +$out = run_perl(prog => 'use threads 2.08 qw(exit thread_only);' . 'threads->create(sub {' . ' threads->set_thread_exit_only(0);' . ' exit(99);' . @@ -141,7 +141,7 @@ $out = run_perl(prog => 'use threads 2.07 qw(exit thread_only);' . like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)"); -run_perl(prog => 'use threads 2.07;' . +run_perl(prog => 'use threads 2.08;' . 'threads->create(sub {' . ' $SIG{__WARN__} = sub { exit(99); };' . ' die();' . diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t index 4628b27..24cf2f3 100644 --- a/dist/threads/t/thread.t +++ b/dist/threads/t/thread.t @@ -161,7 +161,7 @@ package main; # bugid #24165 -run_perl(prog => 'use threads 2.07;' . +run_perl(prog => 'use threads 2.08;' . 'sub a{threads->create(shift)} $t = a sub{};' . '$t->tid; $t->join; $t->tid', nolib => ($ENV{PERL_CORE}) ? 0 : 1, -- Perl5 Master Repository
