From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 27 Jul 2005 16:28:58 +0000 (+0000)
Subject: Some signals are more real than others
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba822478ced3e5aa2061138c165c9599de668198;p=p5sagit%2Fp5-mst-13.2.git

Some signals are more real than others
Also added comment about why the tests are there

p4raw-id: //depot/perl@25230
---

diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t
index aa07973..e8a7018 100644
--- a/ext/POSIX/t/sigaction.t
+++ b/ext/POSIX/t/sigaction.t
@@ -180,7 +180,10 @@ ok($ok, "safe signal delivery must work");
 
 SKIP: {
     eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN() + SIGRTMAX()';
-    skip("no SIGRT signals", 4) if $@ || SIGRTMIN() < 0 || SIGRTMAX() < 0;
+    $@					# POSIX did not exort
+    || SIGRTMIN() < 0 || SIGRTMAX() < 0	# HP-UX 10.20 exports both as -1
+    || SIGRTMIN() > $Config{sig_count}	# AIX 4.3.3 exports bogus 888 and 999
+	and skip("no SIGRT signals", 4);
     ok(SIGRTMAX() > SIGRTMIN(), "SIGRTMAX > SIGRTMIN");
     is(scalar %SIGRT, SIGRTMAX() - SIGRTMIN() + 1, "scalar SIGRT");
     my $sigrtmin;