threads-shared v1.18

Author: jdhedden

Changes

@@ -1,5 +1,9 @@
 Revision history for Perl extension threads::shared.
 
+1.18 Tue Feb 26 16:21:55 2008
+	- Stress test diagnostics
+	- 'die' properly if no compiler
+
 1.17 Fri Feb 22 21:28:52 2008
 	- Allow installation on non-threaded Perls
 

Makefile.PL

@@ -55,7 +55,7 @@ if (grep { $_ eq 'PERL_CORE=1' } @ARGV) {
 
     # Verify that a 'C' compiler is available
     if (! have_cc()) {
-        die("No 'C' compiler found to build 'threads::shared'\n");
+        die("OS unsupported:  ERROR: No 'C' compiler found to build 'threads::shared'\n");
     }
 
     push(@conditional_params, 'DEFINE' => '-DHAS_PPPORT_H',

README

@@ -1,4 +1,4 @@
-threads::shared version 1.17
+threads::shared version 1.18
 ============================
 
 This module needs Perl 5.8.0 or later compiled with USEITHREADS.

shared.pm

@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.17';
+our $VERSION = '1.18';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -73,7 +73,7 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 VERSION
 
-This document describes threads::shared version 1.17
+This document describes threads::shared version 1.18
 
 =head1 SYNOPSIS
 
@@ -371,7 +371,7 @@ L<threads::shared> Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/threads-shared>
 
 Annotated POD for L<threads::shared>:
-L<http://annocpan.org/~JDHEDDEN/threads-shared-1.17/shared.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-shared-1.18/shared.pm>
 
 Source repository:
 L<http://code.google.com/p/threads-shared/>

t/stress.t

@@ -88,27 +88,30 @@ use threads::shared;
             $okay++;
         } else {
             $unknown++;
-            print("# Unknown error: $rc\n");
+            print(STDERR "# Unknown error: $rc\n");
         }
     }
 
     if ($failures || $unknown || (($okay + $timeouts) != $cnt)) {
-        print('not ok 1');
+        print("not ok 1\n");
         my $too_few = $cnt - ($okay + $failures + $timeouts + $unknown);
-        print(" - $too_few too few threads reported") if $too_few;
-        print(" - $failures threads failed")          if $failures;
-        print(" - $unknown unknown errors")           if $unknown;
-        print(" - $timeouts threads timed out")       if $timeouts;
-        print("\n");
+        print(STDERR "# Test failed:\n");
+        print(STDERR "#\t$too_few too few threads reported\n") if $too_few;
+        print(STDERR "#\t$failures threads failed\n")          if $failures;
+        print(STDERR "#\t$unknown unknown errors\n")           if $unknown;
+        print(STDERR "#\t$timeouts threads timed out\n")       if $timeouts;
 
     } elsif ($timeouts) {
         # Frequently fails under MSWin32 due to deadlocking bug in Windows
         # hence test is TODO under MSWin32
         #   http://rt.perl.org/rt3/Public/Bug/Display.html?id=41574
         #   http://support.microsoft.com/kb/175332
-        print('not ok 1');
-        print(' # TODO - not reliable under MSWin32') if ($^O eq 'MSWin32');
-        print(" - $timeouts threads timed out\n");
+        if ($^O eq 'MSWin32') {
+            print("not ok 1 # TODO - not reliable under MSWin32\n")
+        } else {
+            print("not ok 1\n");
+            print(STDERR "# Test failed: $timeouts threads timed out\n");
+        }
 
     } else {
         print('ok 1');