From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 19 Jul 2005 21:08:17 +0000 (+0000)
Subject: XS constants fail when their value is called for, not at import.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb101f41791285e0d0ca33ee99e944e537d5830b;p=p5sagit%2Fp5-mst-13.2.git

XS constants fail when their value is called for, not at import.
This might be construed as a bug. Fixing is probably a greater evil.

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

diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t
index 7ab6043..b4e229d 100644
--- a/ext/POSIX/t/sigaction.t
+++ b/ext/POSIX/t/sigaction.t
@@ -179,7 +179,7 @@ kill 'HUP', $$;
 ok($ok, "safe signal delivery must work");
 
 SKIP: {
-    eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX)';
+    eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN + SIGRTMAX';
     skip("no SIGRT signals", 4) if $@;
     ok(SIGRTMAX > SIGRTMIN, "SIGRTMAX > SIGRTMIN");
     is(scalar %SIGRT, SIGRTMAX() - SIGRTMIN() + 1, "scalar SIGRT");