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

Comparing Coro/Coro.pm (file contents):
Revision 1.11 by root, Sun Jul 15 03:24:18 2001 UTC vs.
Revision 1.12 by root, Sun Jul 15 15:58:16 2001 UTC

… …
26 26
27use Coro::State; 27use Coro::State;
28 28
29use base Exporter; 29use base Exporter;
30 30
31$VERSION = 0.04; 31$VERSION = 0.05;
32 32
33@EXPORT = qw(async yield schedule); 33@EXPORT = qw(async yield schedule);
34@EXPORT_OK = qw($current); 34@EXPORT_OK = qw($current);
35 35
36{ 36{
… …
129=cut 129=cut
130 130
131my $prev; 131my $prev;
132 132
133sub schedule { 133sub schedule {
134 local @_;
134 # should be done using priorities :( 135 # should be done using priorities :(
135 ($prev, $current) = ($current, shift @ready || $idle); 136 ($prev, $current) = ($current, shift @ready || $idle);
136 Coro::State::transfer($prev, $current); 137 Coro::State::transfer($prev, $current);
137} 138}
138 139

Diff Legend

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