From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 25 Jul 2005 11:47:03 +0000 (+0000)
Subject: use POSIX might not throw an error. Check for useful values also
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bdc704b4ed4fab9a538bca405d43887fb36a32f;p=p5sagit%2Fp5-mst-13.2.git

use POSIX might not throw an error. Check for useful values also

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

diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t
index d0ff595..aa07973 100644
--- a/ext/POSIX/t/sigaction.t
+++ b/ext/POSIX/t/sigaction.t
@@ -179,9 +179,9 @@ kill 'HUP', $$;
 ok($ok, "safe signal delivery must work");
 
 SKIP: {
-    eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN + SIGRTMAX';
-    skip("no SIGRT signals", 4) if $@;
-    ok(SIGRTMAX > SIGRTMIN, "SIGRTMAX > SIGRTMIN");
+    eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN() + SIGRTMAX()';
+    skip("no SIGRT signals", 4) if $@ || SIGRTMIN() < 0 || SIGRTMAX() < 0;
+    ok(SIGRTMAX() > SIGRTMIN(), "SIGRTMAX > SIGRTMIN");
     is(scalar %SIGRT, SIGRTMAX() - SIGRTMIN() + 1, "scalar SIGRT");
     my $sigrtmin;
     my $h = sub { $sigrtmin = 1 };