[Moscow.pm] Coro + AnyEvent --- Что не так

[Ivan Petrov]

> async {
>   while(1) {
>       $watcher = $Coro::current;
>       Coro::schedule;
>       $watcher = undef;

>       while (my $task = shift @list) {
>           async { \&cb; } @$task;
>       }
>   }
> };

тут только поменять местами надо собственно цикл и усыпление, а то
дедлок может получиться, сори

 async {
   while(1) {
       while (my $task = shift @list) {
           async { \&cb; } @$task;
       }
       
       $watcher = $Coro::current;
       Coro::schedule;
       $watcher = undef;
   }
 };