XS constants fail when their value is called for, not at import.

[perl5.git] / ext / POSIX / t / sigaction.t

diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t
index 7ab6043..b4e229d 100644 (file)
--- 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");