… | … | ||
---|---|---|---|
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 |