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.
authorNicholas Clark <nick@ccl4.org>
Tue, 19 Jul 2005 21:08:17 +0000 (21:08 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 19 Jul 2005 21:08:17 +0000 (21:08 +0000)
This might be construed as a bug. Fixing is probably a greater evil.

p4raw-id: //depot/perl@25188

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");