[ViewVC] Diff of: cvs/Coro/Coro.pm

Comparing Coro/Coro.pm (file contents):
Revision 1.35 by root, Mon Sep 24 00:16:30 2001 UTC vs.
Revision 1.39 by root, Tue Oct 9 00:39:08 2001 UTC

 =cut
 package Coro;
+no warnings qw(uninitialized);
 use Coro::State;
 use base Exporter;
-$VERSION = 0.5;
+$VERSION = 0.51;
 @EXPORT = qw(async cede schedule terminate current);
 %EXPORT_TAGS = (
       prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
 );
 };
 # this coroutine is necessary because a coroutine
 # cannot destroy itself.
 my @destroy;
+my $manager;
-my $manager = new Coro sub {
+$manager = new Coro sub {
    while() {
-      delete ((pop @destroy)->{_coro_state}) while @destroy;
+      # by overwriting the state object with the manager we destroy it
+      # while still being able to schedule this coroutine (in case it has
+      # been readied multiple times. this is harmless since the manager
+      # can be called as many times as neccessary and will always
+      # remove itself from the runqueue
+      (pop @destroy)->{_coro_state} = $manager->{_coro_state} while @destroy;
       &schedule;
    }
 };
 # static methods. not really.
    }, $class;
 }
 =item $process->ready
-Put the current process into the ready queue.
+Put the given process into the ready queue.
 =cut
 =item $process->cancel

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