This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS constants fail when their value is called for, not at import.
[perl5.git] / ext / POSIX / t / sigaction.t
index 7ab6043..b4e229d 100644 (file)
@@ -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");