ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro.pm
(Generate patch)

Comparing Coro/Coro.pm (file contents):
Revision 1.108 by root, Fri Jan 5 20:00:49 2007 UTC vs.
Revision 1.109 by root, Fri Jan 12 01:15:03 2007 UTC

… …
233our $POOL_SIZE = 8; 233our $POOL_SIZE = 8;
234our @pool; 234our @pool;
235 235
236sub pool_handler { 236sub pool_handler {
237 while () { 237 while () {
238 my ($cb, @arg) = @{ delete $current->{_invoke} };
239
240 eval { 238 eval {
239 my ($cb, @arg) = @{ delete $current->{_invoke} };
241 $cb->(@arg); 240 $cb->(@arg);
242 }; 241 };
243 warn $@ if $@; 242 warn $@ if $@;
244 243
245 last if @pool >= $POOL_SIZE; 244 last if @pool >= $POOL_SIZE;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines