Change 34049 by [EMAIL PROTECTED] on 2008/06/13 17:12:00
Subject: [PATCH] Thread::Semaphore 2.09
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Thu, 12 Jun 2008 09:41:24 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Thread/Semaphore.pm#9 edit
... //depot/perl/lib/Thread/Semaphore/t/01_basic.t#2 edit
... //depot/perl/lib/Thread/Semaphore/t/02_errs.t#3 edit
... //depot/perl/lib/Thread/Semaphore/t/03_nothreads.t#2 edit
Differences ...
==== //depot/perl/lib/Thread/Semaphore.pm#9 (text) ====
Index: perl/lib/Thread/Semaphore.pm
--- perl/lib/Thread/Semaphore.pm#8~33871~ 2008-05-19 11:25:50.000000000
-0700
+++ perl/lib/Thread/Semaphore.pm 2008-06-13 10:12:00.000000000 -0700
@@ -3,7 +3,7 @@
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 @@
=head1 VERSION
-This document describes Thread::Semaphore version 2.08
+This document describes Thread::Semaphore version 2.09
=head1 SYNOPSIS
@@ -151,7 +151,7 @@
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/>
==== //depot/perl/lib/Thread/Semaphore/t/01_basic.t#2 (text) ====
Index: perl/lib/Thread/Semaphore/t/01_basic.t
--- perl/lib/Thread/Semaphore/t/01_basic.t#1~33329~ 2008-02-18
03:19:55.000000000 -0800
+++ perl/lib/Thread/Semaphore/t/01_basic.t 2008-06-13 10:12:00.000000000
-0700
@@ -8,7 +8,7 @@
}
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 @@
ok(1, 'Main done');
threads::yield();
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Semaphore/t/02_errs.t#3 (text) ====
Index: perl/lib/Thread/Semaphore/t/02_errs.t
--- perl/lib/Thread/Semaphore/t/02_errs.t#2~33361~ 2008-02-24
22:53:19.000000000 -0800
+++ perl/lib/Thread/Semaphore/t/02_errs.t 2008-06-13 10:12:00.000000000
-0700
@@ -42,4 +42,6 @@
eval { $s->up('foo'); };
like($@, $err, $@);
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Semaphore/t/03_nothreads.t#2 (text) ====
Index: perl/lib/Thread/Semaphore/t/03_nothreads.t
--- perl/lib/Thread/Semaphore/t/03_nothreads.t#1~33361~ 2008-02-24
22:53:19.000000000 -0800
+++ perl/lib/Thread/Semaphore/t/03_nothreads.t 2008-06-13 10:12:00.000000000
-0700
@@ -21,4 +21,6 @@
$s->down();
is($$s, 1, 'Non-threaded semaphore');
+exit(0);
+
# EOF
End of Patch.
