This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Thread::Semaphore 2.09
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 12 Jun 2008 09:41:24 +0000 (05:41 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 13 Jun 2008 17:12:00 +0000 (17:12 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510806120641jbbb984cn1f505c24d520cdbf@mail.gmail.com>

p4raw-id: //depot/perl@34049

lib/Thread/Semaphore.pm
lib/Thread/Semaphore/t/01_basic.t
lib/Thread/Semaphore/t/02_errs.t
lib/Thread/Semaphore/t/03_nothreads.t

index d6b6664..67cb30e 100644 (file)
@@ -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/>
index 618fe4b..06fc2b2 100644 (file)
@@ -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
index 3c8ba44..06f0b93 100644 (file)
@@ -42,4 +42,6 @@ like($@, $err, $@);
 eval { $s->up('foo'); };
 like($@, $err, $@);
 
+exit(0);
+
 # EOF
index fdeab16..58bcb04 100644 (file)
@@ -21,4 +21,6 @@ is($$s, 2, 'Non-threaded semaphore');
 $s->down();
 is($$s, 1, 'Non-threaded semaphore');
 
+exit(0);
+
 # EOF