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

Comparing Coro/Coro.pm (file contents):
Revision 1.85 by root, Sat Nov 25 00:56:35 2006 UTC vs.
Revision 1.88 by root, Sun Nov 26 02:54:55 2006 UTC

 our $idle;    # idle handler
 our $main;    # main coroutine
 our $current; # current coroutine
-our $VERSION = '2.5';
+our $VERSION = '3.0';
 our @EXPORT = qw(async cede schedule terminate current);
 our %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;
-$manager = new Coro sub {
+my $manager; $manager = new Coro sub {
    while () {
       # 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
 by calling the ready method.
 =cut
 sub _new_coro {
-   $current->_clear_idle_sp; # set the idle sp on the following cede
-   _set_cede_self;  # ensures that cede cede's us first
-   cede;
    terminate &{+shift};
 }
 sub new {
    my $class = shift;

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