summaryrefslogtreecommitdiff
path: root/dist/Thread-Semaphore
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2010-12-24 12:49:12 -0500
committerFather Chrysostomos <sprout@cpan.org>2010-12-26 18:08:31 -0800
commit4c10998810bc11667aab779120fa51ba9987e29a (patch)
treedc2d37979726e23cc7af49caee628a8e7808709c /dist/Thread-Semaphore
parentcce04bebd8af026c2a6731940ddb895d3c1fc3e4 (diff)
downloadperl-4c10998810bc11667aab779120fa51ba9987e29a.tar.gz
Upgrade to Thread::Semaphore 2.12
Diffstat (limited to 'dist/Thread-Semaphore')
-rw-r--r--dist/Thread-Semaphore/lib/Thread/Semaphore.pm12
-rw-r--r--dist/Thread-Semaphore/t/04_nonblocking.t5
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