<http://perl5.git.perl.org/perl.git/commitdiff/95ec88f91eb8b0df06820832434e1de7ea98394e?hp=9ec93952bf7c183cc01466806c75ca9fcbc2548f>
- Log -----------------------------------------------------------------
commit 95ec88f91eb8b0df06820832434e1de7ea98394e
Author: jdhedden <jdhedden@cpan.org>
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