Jerry D. Hedden [Thu, 12 Jun 2008 09:41:24 +0000 (05:41 -0400)]
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <
1ff86f510806120641jbbb984cn1f505c24d520cdbf@mail.gmail.com>
p4raw-id: //depot/perl@34049
use strict;
use warnings;
-our $VERSION = '2.08';
+our $VERSION = '2.09';
use threads::shared;
use Scalar::Util 1.10 qw(looks_like_number);
=head1 VERSION
-This document describes Thread::Semaphore version 2.08
+This document describes Thread::Semaphore version 2.09
=head1 SYNOPSIS
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/>
}
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);
}
}
ok(1, 'Main done');
threads::yield();
+exit(0);
+
# EOF
eval { $s->up('foo'); };
like($@, $err, $@);
+exit(0);
+
# EOF
$s->down();
is($$s, 1, 'Non-threaded semaphore');
+exit(0);
+
# EOF