diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-25 11:47:03 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-25 11:47:03 +0000 |
| commit | 8bdc704b4ed4fab9a538bca405d43887fb36a32f (patch) | |
| tree | 4305c57d9233befbad7e578f16d7f2e8c1a6e254 /ext | |
| parent | da2b6f3329c3a764a9e5a8032aebe3c69d3f55c4 (diff) | |
| download | perl-8bdc704b4ed4fab9a538bca405d43887fb36a32f.tar.gz | |
use POSIX might not throw an error. Check for useful values also
p4raw-id: //depot/perl@25223
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/t/sigaction.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t index d0ff59559c..aa079730f7 100644 --- a/ext/POSIX/t/sigaction.t +++ b/ext/POSIX/t/sigaction.t @@ -179,9 +179,9 @@ kill 'HUP', $$; ok($ok, "safe signal delivery must work"); SKIP: { - eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN + SIGRTMAX'; - skip("no SIGRT signals", 4) if $@; - ok(SIGRTMAX > SIGRTMIN, "SIGRTMAX > SIGRTMIN"); + eval 'use POSIX qw(%SIGRT SIGRTMIN SIGRTMAX); SIGRTMIN() + SIGRTMAX()'; + skip("no SIGRT signals", 4) if $@ || SIGRTMIN() < 0 || SIGRTMAX() < 0; + ok(SIGRTMAX() > SIGRTMIN(), "SIGRTMAX > SIGRTMIN"); is(scalar %SIGRT, SIGRTMAX() - SIGRTMIN() + 1, "scalar SIGRT"); my $sigrtmin; my $h = sub { $sigrtmin = 1 }; |