diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2010-12-24 22:27:58 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-12-24 22:27:58 +0000 |
| commit | 8134577e753e8ffd87f6641511c15ddd97943cd1 (patch) | |
| tree | b15cd8337640643581e76ae64e657ebfa8f3efde /dist/threads | |
| parent | b296285b4ca65486f2c1f6be30234679351f0c2b (diff) | |
| download | perl-8134577e753e8ffd87f6641511c15ddd97943cd1.tar.gz | |
[PATCH] Upgrade to threads 1.82
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Diffstat (limited to 'dist/threads')
| -rw-r--r-- | dist/threads/lib/threads.pm | 10 | ||||
| -rw-r--r-- | dist/threads/t/exit.t | 10 | ||||
| -rw-r--r-- | dist/threads/t/thread.t | 2 |
3 files changed, 8 insertions, 14 deletions
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index aef9c2a3e9..35bed52ad0 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 = '1.81_03'; +our $VERSION = '1.82'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -134,7 +134,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 1.81 +This document describes threads version 1.82 =head1 SYNOPSIS @@ -1045,12 +1045,6 @@ Perl 5.8.0 or later L<threads> Discussion Forum on CPAN: L<http://www.cpanforum.com/dist/threads> -Annotated POD for L<threads>: -L<http://annocpan.org/~JDHEDDEN/threads-1.81/threads.pm> - -Source repository: -L<http://code.google.com/p/threads-shared/> - L<threads::shared>, L<perlthrtut> L<http://www.perl.com/pub/a/2002/06/11/threads.html> and diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t index a3f2106240..c9f0f7ccb1 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 1.81;' . +run_perl(prog => 'use threads 1.82;' . '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 1.81 qw(exit thread_only);' . +run_perl(prog => 'use threads 1.82 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 1.81 qw(exit thread_only);' . is($?>>8, 86, "'use threads 'exit' => 'thread_only'"); } -my $out = run_perl(prog => 'use threads 1.81;' . +my $out = run_perl(prog => 'use threads 1.82;' . 'threads->create(sub {' . ' exit(99);' . '});' . @@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.81;' . like($out, '1 finished and unjoined', "exit(status) in thread"); -$out = run_perl(prog => 'use threads 1.81 qw(exit thread_only);' . +$out = run_perl(prog => 'use threads 1.82 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 1.81 qw(exit thread_only);' . like($out, '1 finished and unjoined', "set_thread_exit_only(0)"); -run_perl(prog => 'use threads 1.81;' . +run_perl(prog => 'use threads 1.82;' . 'threads->create(sub {' . ' $SIG{__WARN__} = sub { exit(99); };' . ' die();' . diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t index b63c0a3212..8f7ffe817b 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 1.81;' . +run_perl(prog => 'use threads 1.82;' . 'sub a{threads->create(shift)} $t = a sub{};' . '$t->tid; $t->join; $t->tid', nolib => ($ENV{PERL_CORE}) ? 0 : 1, |