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

Comparing cvsroot/Coro/Coro.pm (file contents):
Revision 1.135 by root, Sat Sep 22 22:39:15 2007 UTC vs.
Revision 1.138 by root, Wed Sep 26 19:27:04 2007 UTC

 our $idle;    # idle handler
 our $main;    # main coroutine
 our $current; # current coroutine
-our $VERSION = '3.7';
+our $VERSION = '3.8';
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (
       prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
 );
    # call all destruction callbacks
    $_->(@{$self->{status}})
       for @{(delete $self->{destroy_cb}) || []};
 }
+sub _do_trace {
+   $current->{_trace_cb}->();
+}
 # this coroutine is necessary because a coroutine
 # cannot destroy itself.
 my @destroy;
 my $manager;
    my $cb;
    while () {
       eval {
          while () {
-#            &{&_pool_1 or &terminate}; # crashes, would be ~5% faster
-            $cb = &_pool_1
+            _pool_1 $cb;
-               or &terminate;
             &$cb;
-            undef $cb;
+            _pool_2 $cb;
-            &terminate if &_pool_2;
             &schedule;
          }
       };
+      last if $@ eq "\3terminate\2\n";
       warn $@ if $@;
    }
 }
 sub async_pool(&@) {

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