… | … | ||
---|---|---|---|
7 | 7 | ||
8 | use Coro; | 8 | use Coro; |
9 | use Coro::Process; | 9 | use Coro::Process; |
10 | use Coro::Semaphore; | 10 | use Coro::Semaphore; |
11 | 11 | ||
12 | my $produced = new Coro::Semaphore; | 12 | my $produced = new Coro::Semaphore 0; |
13 | my $finished = new Coro::Semaphore 0; | 13 | my $finished = new Coro::Semaphore 0; |
14 | 14 | ||
15 | async { | 15 | async { |
16 | for my $i (0..9) { | 16 | for my $i (0..9) { |
17 | print "produced $i\n"; | 17 | print "produced $i\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |