| … | |
… | |
| 97 | |
97 | |
| 98 | push \@_, sub { |
98 | push \@_, sub { |
| 99 | \$state = Coro::_aio_get_state; |
99 | \$state = Coro::_aio_get_state; |
| 100 | \@res = \@_; |
100 | \@res = \@_; |
| 101 | \$current->ready; |
101 | \$current->ready; |
| 102 | undef \$current; |
|
|
| 103 | }; |
102 | }; |
| 104 | |
103 | |
| 105 | &$iosub; |
104 | &$iosub; |
| 106 | |
105 | |
|
|
106 | Coro::schedule; |
| 107 | Coro::schedule while !\$state; |
107 | Coro::schedule while !\$state; |
| 108 | |
108 | |
| 109 | Coro::_aio_set_state \$state; |
109 | Coro::_aio_set_state \$state; |
| 110 | wantarray ? \@res : \$res[0] |
110 | wantarray ? \@res : \$res[0] |
| 111 | } |
111 | } |
