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

Comparing Coro/Coro.pm (file contents):
Revision 1.117 by root, Wed Mar 7 13:11:10 2007 UTC vs.
Revision 1.118 by root, Mon Mar 19 15:50:48 2007 UTC

… …
50 50
51our $idle; # idle handler 51our $idle; # idle handler
52our $main; # main coroutine 52our $main; # main coroutine
53our $current; # current coroutine 53our $current; # current coroutine
54 54
55our $VERSION = '3.52'; 55our $VERSION = '3.55';
56 56
57our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); 57our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
58our %EXPORT_TAGS = ( 58our %EXPORT_TAGS = (
59 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], 59 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
60); 60);
… …
242 warn $@ if $@; 242 warn $@ if $@;
243 243
244 last if @pool >= $POOL_SIZE; 244 last if @pool >= $POOL_SIZE;
245 push @pool, $current; 245 push @pool, $current;
246 246
247 $current->save (Coro::State::SAVE_DEF);
247 $current->prio (0); 248 $current->prio (0);
248 schedule; 249 schedule;
249 } 250 }
250} 251}
251 252

Diff Legend

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