summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2008-06-12 05:41:24 -0400
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-06-13 17:12:00 +0000
commit1090e0729d02971aadec2a7ab31d380b2f7af7e0 (patch)
treeed4997e7a9bcd07d693cb079c6321edddf4a128a
parent561ee912c48576b809cc3fe50b6a25cc06e0f63f (diff)
downloadperl-1090e0729d02971aadec2a7ab31d380b2f7af7e0.tar.gz
Thread::Semaphore 2.09
From: "Jerry D. Hedden" <jdhedden@cpan.org> Message-ID: <1ff86f510806120641jbbb984cn1f505c24d520cdbf@mail.gmail.com> p4raw-id: //depot/perl@34049
-rw-r--r--lib/Thread/Semaphore.pm6
-rw-r--r--lib/Thread/Semaphore/t/01_basic.t4
-rw-r--r--lib/Thread/Semaphore/t/02_errs.t2
-rw-r--r--lib/Thread/Semaphore/t/03_nothreads.t2
4 files changed, 10 insertions, 4 deletions
diff --git a/lib/Thread/Semaphore.pm b/lib/Thread/Semaphore.pm
index d6b66640f2..67cb30e66a 100644
--- a/lib/Thread/Semaphore.pm
+++ b/lib/Thread/Semaphore.pm
@@ -3,7 +3,7 @@ package Thread::Semaphore;
use strict;
use warnings;
-our $VERSION = '2.08';
+our $VERSION = '2.09';
use threads::shared;
use Scalar::Util 1.10 qw(looks_like_number);
@@ -66,7 +66,7 @@ Thread::Semaphore - Thread-safe semaphores
=head1 VERSION
-This document describes Thread::Semaphore version 2.08
+This document describes Thread::Semaphore version 2.09
=head1 SYNOPSIS
@@ -151,7 +151,7 @@ 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.08/lib/Thread/Semaphore.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Semaphore-2.09/lib/Thread/Semaphore.pm>
Source repository:
L<http://code.google.com/p/thread-semaphore/>
diff --git a/lib/Thread/Semaphore/t/01_basic.t b/lib/Thread/Semaphore/t/01_basic.t
index 618fe4b61d..06fc2b24fd 100644
--- a/lib/Thread/Semaphore/t/01_basic.t
+++ b/lib/Thread/Semaphore/t/01_basic.t
@@ -8,7 +8,7 @@ BEGIN {
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -73,4 +73,6 @@ $st->down();
ok(1, 'Main done');
threads::yield();
+exit(0);
+
# EOF
diff --git a/lib/Thread/Semaphore/t/02_errs.t b/lib/Thread/Semaphore/t/02_errs.t
index 3c8ba440c1..06f0b937ee 100644
--- a/lib/Thread/Semaphore/t/02_errs.t
+++ b/lib/Thread/Semaphore/t/02_errs.t
@@ -42,4 +42,6 @@ like($@, $err, $@);
eval { $s->up('foo'); };
like($@, $err, $@);
+exit(0);
+
# EOF
diff --git a/lib/Thread/Semaphore/t/03_nothreads.t b/lib/Thread/Semaphore/t/03_nothreads.t
index fdeab1659a..58bcb04987 100644
--- a/lib/Thread/Semaphore/t/03_nothreads.t
+++ b/lib/Thread/Semaphore/t/03_nothreads.t
@@ -21,4 +21,6 @@ is($$s, 2, 'Non-threaded semaphore');
$s->down();
is($$s, 1, 'Non-threaded semaphore');
+exit(0);
+
# EOF