diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-07-19 21:08:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-19 21:08:17 +0000 |
| commit | eb101f41791285e0d0ca33ee99e944e537d5830b (patch) | |
| tree | dbd395f6de152cdd9de81f05b00bebf1b9bdd60e /ext/POSIX/t/sigaction.t | |
| parent | 7f73a9f140198d1b3d1c2f2b62d4fd14dc5667c3 (diff) | |
| download | perl-eb101f41791285e0d0ca33ee99e944e537d5830b.tar.gz | |
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
Diffstat (limited to 'ext/POSIX/t/sigaction.t')
| -rw-r--r-- | ext/POSIX/t/sigaction.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t index 7ab6043d86..b4e229da30 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"); |