From: Jerry D. Hedden Date: Thu, 12 Jun 2008 09:41:24 +0000 (-0400) Subject: Thread::Semaphore 2.09 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1090e0729d02971aadec2a7ab31d380b2f7af7e0;p=p5sagit%2Fp5-mst-13.2.git Thread::Semaphore 2.09 From: "Jerry D. Hedden" Message-ID: <1ff86f510806120641jbbb984cn1f505c24d520cdbf@mail.gmail.com> p4raw-id: //depot/perl@34049 --- diff --git a/lib/Thread/Semaphore.pm b/lib/Thread/Semaphore.pm index d6b6664..67cb30e 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 Annotated POD for Thread::Semaphore: -L +L Source repository: L diff --git a/lib/Thread/Semaphore/t/01_basic.t b/lib/Thread/Semaphore/t/01_basic.t index 618fe4b..06fc2b2 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 3c8ba44..06f0b93 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 fdeab16..58bcb04 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