Change 33361 by [EMAIL PROTECTED] on 2008/02/25 06:53:19
Subject: [PATCH] Thread::Semaphore 2.07
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Fri, 22 Feb 2008 17:05:55 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/MANIFEST#1676 edit
... //depot/perl/lib/Thread/Semaphore.pm#7 edit
... //depot/perl/lib/Thread/Semaphore/t/02_errs.t#2 edit
... //depot/perl/lib/Thread/Semaphore/t/03_nothreads.t#1 add
Differences ...
==== //depot/perl/MANIFEST#1676 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1675~33331~ 2008-02-18 05:37:40.000000000 -0800
+++ perl/MANIFEST 2008-02-24 22:53:19.000000000 -0800
@@ -2816,6 +2816,7 @@
lib/Thread/Semaphore.pm Thread-safe semaphores
lib/Thread/Semaphore/t/01_basic.t Thread::Semaphore tests
lib/Thread/Semaphore/t/02_errs.t Thread::Semaphore tests
+lib/Thread/Semaphore/t/03_nothreads.t Thread::Semaphore tests
lib/Thread.t Thread extensions frontend tests
lib/Tie/Array.pm Base class for tied arrays
lib/Tie/Array/push.t Test for Tie::Array
==== //depot/perl/lib/Thread/Semaphore.pm#7 (text) ====
Index: perl/lib/Thread/Semaphore.pm
--- perl/lib/Thread/Semaphore.pm#6~33329~ 2008-02-18 03:19:55.000000000
-0800
+++ perl/lib/Thread/Semaphore.pm 2008-02-24 22:53:19.000000000 -0800
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '2.04';
+our $VERSION = '2.07';
use threads::shared;
use Scalar::Util 1.10 qw(looks_like_number);
@@ -55,7 +55,7 @@
=head1 VERSION
-This document describes Thread::Semaphore version 2.04
+This document describes Thread::Semaphore version 2.07
=head1 SYNOPSIS
@@ -127,13 +127,23 @@
=back
+=head1 NOTES
+
+Semaphores created by L<Thread::Semaphore> can be used in both threaded and
+non-threaded applications. This allows you to write modules and packages
+that potentially make use of semaphores, and that will function in either
+environment.
+
=head1 SEE ALSO
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.04/lib/Thread/Semaphore.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Semaphore-2.07/lib/Thread/Semaphore.pm>
+
+Source repository:
+L<http://code.google.com/p/thread-semaphore/>
L<threads>, L<threads::shared>
==== //depot/perl/lib/Thread/Semaphore/t/02_errs.t#2 (text) ====
Index: perl/lib/Thread/Semaphore/t/02_errs.t
--- perl/lib/Thread/Semaphore/t/02_errs.t#1~33329~ 2008-02-18
03:19:55.000000000 -0800
+++ perl/lib/Thread/Semaphore/t/02_errs.t 2008-02-24 22:53:19.000000000
-0800
@@ -6,11 +6,6 @@
chdir('t');
unshift(@INC, '../lib');
}
- use Config;
- if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
- exit(0);
- }
}
use Thread::Semaphore;
==== //depot/perl/lib/Thread/Semaphore/t/03_nothreads.t#1 (text) ====
Index: perl/lib/Thread/Semaphore/t/03_nothreads.t
--- /dev/null 2008-02-16 23:25:19.580872585 -0800
+++ perl/lib/Thread/Semaphore/t/03_nothreads.t 2008-02-24 22:53:19.000000000
-0800
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+BEGIN {
+ if ($ENV{'PERL_CORE'}){
+ chdir('t');
+ unshift(@INC, '../lib');
+ }
+}
+
+use Test::More 'tests' => 4;
+
+use Thread::Semaphore;
+
+my $s = Thread::Semaphore->new();
+is($$s, 1, 'Non-threaded semaphore');
+$s->down();
+is($$s, 0, 'Non-threaded semaphore');
+$s->up(2);
+is($$s, 2, 'Non-threaded semaphore');
+$s->down();
+is($$s, 1, 'Non-threaded semaphore');
+
+# EOF
End of Patch.
