diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2010-12-24 12:49:12 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-26 18:08:31 -0800 |
commit | 4c10998810bc11667aab779120fa51ba9987e29a (patch) | |
tree | dc2d37979726e23cc7af49caee628a8e7808709c /dist/Thread-Semaphore | |
parent | cce04bebd8af026c2a6731940ddb895d3c1fc3e4 (diff) | |
download | perl-4c10998810bc11667aab779120fa51ba9987e29a.tar.gz |
Upgrade to Thread::Semaphore 2.12
Diffstat (limited to 'dist/Thread-Semaphore')
-rw-r--r-- | dist/Thread-Semaphore/lib/Thread/Semaphore.pm | 12 | ||||
-rw-r--r-- | dist/Thread-Semaphore/t/04_nonblocking.t | 5 |
2 files changed, 4 insertions, 13 deletions
diff --git a/dist/Thread-Semaphore/lib/Thread/Semaphore.pm b/dist/Thread-Semaphore/lib/Thread/Semaphore.pm index 8ce24293e5..d940d031bf 100644 --- a/dist/Thread-Semaphore/lib/Thread/Semaphore.pm +++ b/dist/Thread-Semaphore/lib/Thread/Semaphore.pm @@ -3,7 +3,7 @@ package Thread::Semaphore; use strict; use warnings; -our $VERSION = '2.11'; +our $VERSION = '2.12'; $VERSION = eval $VERSION; use threads::shared; @@ -102,7 +102,7 @@ Thread::Semaphore - Thread-safe semaphores =head1 VERSION -This document describes Thread::Semaphore version 2.11 +This document describes Thread::Semaphore version 2.12 =head1 SYNOPSIS @@ -122,7 +122,7 @@ This document describes Thread::Semaphore version 2.11 $s->down_force(); # The default value for semaphore operations is 1 - my $s = Thread::Semaphore-new($initial_value); + my $s = Thread::Semaphore->new($initial_value); $s->down($down_value); $s->up($up_value); if ($s->down_nb($down_value)) { @@ -221,12 +221,6 @@ environment. Thread::Semaphore Discussion Forum on CPAN: L<http://www.cpanforum.com/dist/Thread-Semaphore> -Annotated POD for Thread::Semaphore: -L<http://annocpan.org/~JDHEDDEN/Thread-Semaphore-2.11/lib/Thread/Semaphore.pm> - -Source repository: -L<http://code.google.com/p/thread-semaphore/> - L<threads>, L<threads::shared> =head1 MAINTAINER diff --git a/dist/Thread-Semaphore/t/04_nonblocking.t b/dist/Thread-Semaphore/t/04_nonblocking.t index 9c06969a41..a4e8cd6709 100644 --- a/dist/Thread-Semaphore/t/04_nonblocking.t +++ b/dist/Thread-Semaphore/t/04_nonblocking.t @@ -19,7 +19,7 @@ if ($] == 5.008) { require Test::More; } Test::More->import(); -plan('tests' => 13); +plan('tests' => 12); ### Basic usage with multiple threads ### @@ -54,9 +54,6 @@ $st->up(4); $sm->down(); is($token++, 2, 'Main got semaphore'); -ok(1, 'Main done'); -threads::yield(); - exit(0); # EOF |