Thread-Suspend v1.15

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Thread::Suspend.
 
+1.15 Wed Feb 27 13:43:14 2008
+	- More fixes to tests
+
 1.14 Wed Feb 27 01:14:00 2008
 	- More fixes to tests
 

README

@@ -1,4 +1,4 @@
-Thread::Suspend version 1.14
+Thread::Suspend version 1.15
 ============================
 
 This module adds suspend and resume operations for threads.

lib/Thread/Suspend.pm

@@ -3,7 +3,7 @@ package Thread::Suspend; {
 use strict;
 use warnings;
 
-our $VERSION = '1.14';
+our $VERSION = '1.15';
 
 use threads 1.39;
 use threads::shared 1.01;
@@ -155,7 +155,7 @@ Thread::Suspend - Suspend and resume operations for threads
 
 =head1 VERSION
 
-This document describes Thread::Suspend version 1.14
+This document describes Thread::Suspend version 1.15
 
 =head1 SYNOPSIS
 
@@ -316,7 +316,7 @@ Thread::Suspend Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/Thread-Suspend>
 
 Annotated POD for Thread::Suspend:
-L<http://annocpan.org/~JDHEDDEN/Thread-Suspend-1.14/lib/Thread/Suspend.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Suspend-1.15/lib/Thread/Suspend.pm>
 
 Source repository:
 L<http://code.google.com/p/thread-suspend/>

t/01_self.t

@@ -44,6 +44,7 @@ sub counter2
 my @threads;
 push(@threads, threads->create('counter2')) for (1..$nthreads);
 is(scalar(threads->list()), $nthreads, 'Threads created');
+pause(0.1);
 
 
 ### Functionality testing ###

t/05_some.t

@@ -16,7 +16,7 @@ use threads::shared;
 
 our $nthreads;
 BEGIN { $nthreads = 3; }
-use Test::More 'tests' => 73;
+use Test::More 'tests' => 72;
 
 
 ### Load module ###
@@ -33,7 +33,6 @@ my @threads = make_threads($nthreads);
 
 ### Functionality testing ###
 
-is(scalar(threads->list()), scalar(@threads), 'Threads created');
 ok(! threads->is_suspended(), 'No threads suspended');
 foreach my $thr (@threads) {
     my $tid = $thr->tid();