Change 33387 by [EMAIL PROTECTED] on 2008/02/27 16:05:12
Subject: [PATCH] threads::shared 1.18
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Tue, 26 Feb 2008 11:29:54 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/threads/shared/Makefile.PL#11 edit
... //depot/perl/ext/threads/shared/shared.pm#58 edit
... //depot/perl/ext/threads/shared/t/stress.t#5 edit
Differences ...
==== //depot/perl/ext/threads/shared/Makefile.PL#11 (xtext) ====
Index: perl/ext/threads/shared/Makefile.PL
--- perl/ext/threads/shared/Makefile.PL#10~33360~ 2008-02-24
22:47:17.000000000 -0800
+++ perl/ext/threads/shared/Makefile.PL 2008-02-27 08:05:12.000000000 -0800
@@ -55,7 +55,7 @@
# 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',
==== //depot/perl/ext/threads/shared/shared.pm#58 (text) ====
Index: perl/ext/threads/shared/shared.pm
--- perl/ext/threads/shared/shared.pm#57~33360~ 2008-02-24 22:47:17.000000000
-0800
+++ perl/ext/threads/shared/shared.pm 2008-02-27 08:05:12.000000000 -0800
@@ -5,7 +5,7 @@
use strict;
use warnings;
-our $VERSION = '1.17';
+our $VERSION = '1.18';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
@@ -73,7 +73,7 @@
=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<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/>
==== //depot/perl/ext/threads/shared/t/stress.t#5 (text) ====
Index: perl/ext/threads/shared/t/stress.t
--- perl/ext/threads/shared/t/stress.t#4~31233~ 2007-05-16 14:32:56.000000000
-0700
+++ perl/ext/threads/shared/t/stress.t 2008-02-27 08:05:12.000000000 -0800
@@ -88,27 +88,30 @@
$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');
End of Patch.
