Re: Thread fail/hang on HP-UX 10.20

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510705161118x55e9d18crdf376ca469f97dc7@mail.gmail.com>

p4raw-id: //depot/perl@31233

diff --git a/ext/threads/shared/Changes b/ext/threads/shared/Changes
index 6c9ed3d..53f5328 100644 (file)
--- a/ext/threads/shared/Changes
+++ b/ext/threads/shared/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension threads::shared.
 
+-
+       - Skip stress test under HP-UX 10.20
+
 1.11 Mon May 14 12:13:37 2007
        - Modify stress test to be TODO under MSWin32
        - Store user locks safely

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index 9041926..4b42667 100644 (file)
--- 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.11';
+our $VERSION = '1.11_01';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 

diff --git a/ext/threads/shared/t/stress.t b/ext/threads/shared/t/stress.t
index f2f7d60..86a04e2 100644 (file)
--- a/ext/threads/shared/t/stress.t
+++ b/ext/threads/shared/t/stress.t
@@ -11,6 +11,10 @@ BEGIN {
         print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
         exit(0);
     }
+    if ($^O eq 'hpux' && $Config{osvers} <= 10.20) {
+        print("1..0 # Skip: Broken under HP-UX 10.20\n");
+        exit(0);
+    }
 }
 
 use ExtUtils::testlib;