| Revision: | 1.2 |
| Committed: | Tue Jul 14 19:29:26 2009 UTC (15 years ago) by root |
| Content type: | application/x-troff |
| Branch: | MAIN |
| CVS Tags: | rel-0_501, rel-0_042, rel-0_5, rel-0_06 |
| Changes since 1.1: | +2 -2 lines |
| Log Message: | *** empty log message *** |
| # | Content |
|---|---|
| 1 | unless (exists $SIG{USR1}) { |
| 2 | print "1..0 # SKIP no SIGUSR1 - broken platform, skipping tests\n"; |
| 3 | exit; |
| 4 | } |
| 5 | |
| 6 | print "1..4\n"; $|=1; |
| 7 | |
| 8 | use Async::Interrupt; |
| 9 | |
| 10 | my $ai = new Async::Interrupt |
| 11 | cb => sub { print "ok 3\n" }, |
| 12 | signal => "CHLD"; |
| 13 | |
| 14 | print "ok 1\n"; |
| 15 | |
| 16 | { |
| 17 | $ai->scope_block; |
| 18 | kill CHLD => $$; |
| 19 | print "ok 2\n"; |
| 20 | } |
| 21 | |
| 22 | print "ok 4\n"; |
| 23 | |
| 24 |