--- cvsroot/Coro/myhttpd/httpd.pl	2001/08/16 21:55:35	1.20
+++ cvsroot/Coro/myhttpd/httpd.pl	2001/08/17 03:33:00	1.21
@@ -78,7 +78,10 @@
 
 Event->io(fd => Linux::AIO::poll_fileno,
           poll => 'r', async => 1,
-          cb => \&Linux::AIO::poll_cb );
+          cb => \&Linux::AIO::poll_cb);
+my $scheduler = Event->idle(
+          max => 0, min => 0, prio => 6, parked => 1,
+          cb => \&Coro::schedule);
 
 our %conn; # $conn{ip}{fh} => connobj
 our %blocked;
@@ -482,6 +485,7 @@
                      $buf, 0, sub {
                         $r = $_[0];
                         $current->ready;
+                        $scheduler->now;
                      });
             &Coro::schedule;
             last unless $r;