… | … | ||
---|---|---|---|
30 | 30 | ||
31 | $finished->wait; | 31 | $finished->wait; |
32 | 32 | ||
33 | print "producer finished\n"; | 33 | print "producer finished\n"; |
34 | 34 | ||
35 | yield while $work->size; | 35 | cede while $work->size; |
36 | 36 | ||
37 | print "job finished\n"; | 37 | print "job finished\n"; |
38 | 38 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |