diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-02-26 06:29:54 -0500 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-27 16:05:12 +0000 |
commit | 291f766ec79ed2f8f09e116381515c07bad45726 (patch) | |
tree | 7dd81b7a581cf50bf74b313c9ef98ab6b711ce3a /ext | |
parent | 54683d5edb85bfe9b7a4df00baf9416e1a7ecf2f (diff) | |
download | perl-291f766ec79ed2f8f09e116381515c07bad45726.tar.gz |
threads::shared 1.18
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510802260829h306ea16by990af232dac22a82@mail.gmail.com>
p4raw-id: //depot/perl@33387
Diffstat (limited to 'ext')
-rwxr-xr-x | ext/threads/shared/Makefile.PL | 2 | ||||
-rw-r--r-- | ext/threads/shared/shared.pm | 6 | ||||
-rw-r--r-- | ext/threads/shared/t/stress.t | 23 |
3 files changed, 17 insertions, 14 deletions
diff --git a/ext/threads/shared/Makefile.PL b/ext/threads/shared/Makefile.PL index b59d1c9684..6c53eb17df 100755 --- a/ext/threads/shared/Makefile.PL +++ b/ext/threads/shared/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', diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm index f2aaf27aac..54dbd57d97 100644 --- a/ext/threads/shared/shared.pm +++ b/ext/threads/shared/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/> diff --git a/ext/threads/shared/t/stress.t b/ext/threads/shared/t/stress.t index 86a04e2df1..584be334a5 100644 --- a/ext/threads/shared/t/stress.t +++ b/ext/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'); |