| … | … | ||
|---|---|---|---|
| 11 | close STDERR; | 11 | close STDERR; |
| 12 | close STDOUT; | 12 | close STDOUT; |
| 13 | $old_idle->(); | 13 | $old_idle->(); |
| 14 | }; | 14 | }; |
| 15 | schedule; | 15 | schedule; |
| 16 | exit(253); | 16 | exit 3; |
| 17 | }; | 17 | }; |
| 18 | 18 | ||
| 19 | waitpid $pid, 0; | ||
| 19 | 20 | ||
| 20 | 253 == (waitpid $pid, 0) >> 8 | 21 | 3 == $? >> 8 |
| 21 | ? "not " : "", "ok 3\n"; | 22 | ? "not " : "", "ok 3\n"; |
| 22 | 23 | ||
| 23 | my $coro = new Coro sub { | 24 | my $coro = new Coro sub { |
| 24 | print "ok 5\n"; | 25 | print "ok 5\n"; |
| 25 | Coro::State::_exit 0; | 26 | Coro::State::_exit 0; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |