… | … | ||
---|---|---|---|
153 | *{ $flavour } = $coronew; | 153 | *{ $flavour } = $coronew; |
154 | *{"do_$flavour"} = sub { | 154 | *{"do_$flavour"} = sub { |
155 | unshift @_, Coro::Event::; | 155 | unshift @_, Coro::Event::; |
156 | @_ = &$coronew; | 156 | @_ = &$coronew; |
157 | &Coro::schedule while &_next; | 157 | &Coro::schedule while &_next; |
158 | $_[0]->cancel; | ||
158 | &_event | 159 | &_event |
159 | }; | 160 | }; |
160 | } | 161 | } |
161 | 162 | ||
162 | # do schedule in perl to avoid forcing a stack allocation. | 163 | # do schedule in perl to avoid forcing a stack allocation. |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |