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

Comparing Coro/Coro.pm (file contents):
Revision 1.186 by root, Sun May 25 01:32:36 2008 UTC vs.
Revision 1.194 by root, Tue Jul 8 20:08:40 2008 UTC

66 66
67our $idle; # idle handler 67our $idle; # idle handler
68our $main; # main coroutine 68our $main; # main coroutine
69our $current; # current coroutine 69our $current; # current coroutine
70 70
71our $VERSION = '4.72'; 71our $VERSION = 4.744;
72 72
73our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub); 73our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
74our %EXPORT_TAGS = ( 74our %EXPORT_TAGS = (
75 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], 75 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
76); 76);
266 _pool_2 $cb; 266 _pool_2 $cb;
267 &schedule; 267 &schedule;
268 } 268 }
269 }; 269 };
270 270
271 if ($@) {
271 last if $@ eq "\3async_pool terminate\2\n"; 272 last if $@ eq "\3async_pool terminate\2\n";
272 warn $@ if $@; 273 warn $@;
274 }
273 } 275 }
274} 276}
275 277
276sub async_pool(&@) { 278sub async_pool(&@) {
277 # this is also inlined into the unlock_scheduler 279 # this is also inlined into the unlock_scheduler

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines