diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2011-02-20 15:30:59 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-02-20 15:33:14 +0000 |
| commit | 28fcd4224f1953859628f8dfd1b0cd6a8ee5d4a0 (patch) | |
| tree | 7595b9dcd5d78838744d606bb74d260b4e256018 | |
| parent | 84c2dc44f0d2486b34f460c82a876d94aa3a5cf4 (diff) | |
| download | perl-28fcd4224f1953859628f8dfd1b0cd6a8ee5d4a0.tar.gz | |
Fix timing issues with test in sigdispatch.t on certain BSDs
Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
| -rw-r--r-- | t/op/sigdispatch.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t index 8e861e1979..3a0138a6f5 100644 --- a/t/op/sigdispatch.t +++ b/t/op/sigdispatch.t @@ -73,7 +73,7 @@ SKIP: { # test unsafe signal handlers in combination with exceptions my $action = POSIX::SigAction->new(sub { $gotit--, die }, POSIX::SigSet->new, 0); - POSIX::sigaction(&POSIX::SIGUSR1, $action); - eval { kill SIGUSR1, $$ } for 1..2; + POSIX::sigaction(&POSIX::SIGALRM, $action); + eval { alarm 1; POSIX::sigsuspend(POSIX::SigSet->new) } for 1..2; is $gotit, 0, 'Received both signals'; } |