Thread-Suspend v1.18

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Thread::Suspend.
 
+1.18 Tue Jun 10 16:58:13 2008
+	- End all tests with exit(0)
+
 1.17 Thu Feb 28 16:05:15 2008
 	- More fixes to tests
 

README

@@ -1,4 +1,4 @@
-Thread::Suspend version 1.17
+Thread::Suspend version 1.18
 ============================
 
 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.17';
+our $VERSION = '1.18';
 
 use threads 1.39;
 use threads::shared 1.01;
@@ -81,6 +81,7 @@ sub threads::resume
 {
     my ($thing, @threads) = @_;
 
+    lock(%SUSPEND);
     if ($thing eq 'threads') {
         if (@threads) {
             # Resume specified threads
@@ -91,7 +92,6 @@ sub threads::resume
                             @threads;
         } else {
             # Resume all threads
-            lock(%SUSPEND);
             @threads = grep { $_ }
                        map  { threads->object($_) }
                             keys(%SUSPEND);
@@ -103,7 +103,6 @@ sub threads::resume
 
     # Resume threads
     my $resume = 0;
-    lock(%SUSPEND);
     foreach my $thr (@threads) {
         my $tid = $thr->tid();
         if ($SUSPEND{$tid}) {
@@ -155,7 +154,7 @@ Thread::Suspend - Suspend and resume operations for threads
 
 =head1 VERSION
 
-This document describes Thread::Suspend version 1.17
+This document describes Thread::Suspend version 1.18
 
 =head1 SYNOPSIS
 
@@ -316,7 +315,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.17/lib/Thread/Suspend.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Suspend-1.18/lib/Thread/Suspend.pm>
 
 Source repository:
 L<http://code.google.com/p/thread-suspend/>

t/00_basic.t

@@ -76,4 +76,6 @@ foreach my $thr (@threads) {
 
 $_->kill('KILL')->join() foreach (@threads);
 
+exit(0);
+
 # EOF

t/01_self.t

@@ -83,4 +83,6 @@ while (my $thr = shift(@threads)) {
     $thr->kill('KILL')->join();
 }
 
+exit(0);
+
 # EOF

t/02_signal.t

@@ -82,4 +82,6 @@ SKIP: {
     $thr->join();
 }
 
+exit(0);
+
 # EOF

t/03_detach.t

@@ -73,4 +73,6 @@ foreach my $thr (@threads) {
     }
 }
 
+exit(0);
+
 # EOF

t/04_all.t

@@ -158,4 +158,6 @@ foreach my $thr (@threads) {
     }
 }
 
+exit(0);
+
 # EOF

t/05_some.t

@@ -162,4 +162,6 @@ foreach my $thr (@threads) {
     }
 }
 
+exit(0);
+
 # EOF

t/99_pod.t

@@ -42,6 +42,8 @@ SKIP: {
     unlink("/home/$ENV{'USER'}/en.prepl", "/home/$ENV{'USER'}/en.pws");
 }
 
+exit(0);
+
 __DATA__
 
 Hedden