[ViewVC] Diff of: cvs/cvsroot/Coro/myhttpd/httpd.pl

Comparing cvsroot/Coro/myhttpd/httpd.pl (file contents):
Revision 1.36 by root, Sun Sep 2 00:54:00 2001 UTC vs.
Revision 1.38 by root, Sun Sep 2 02:27:51 2001 UTC

 my @pool;
 # one "execution thread"
 sub handler {
    while () {
-      my $new = pop @newcons;
-      if ($new) {
+      if (@newcons) {
          eval {
-            conn->new(@$new)->handle;
+            conn->new(@{pop @newcons})->handle;
          };
          slog 1, "$@" if $@ && !ref $@;
          $connections->up;
       } else {
          last if @pool >= $MAX_POOL;
 use Convert::Scalar 'weaken';
 use Linux::AIO;
 Linux::AIO::min_parallel $::AIO_PARALLEL;
-my $aio_requests = new Coro::Semaphore $::AIO_PARALLEL * 4;
 Event->io(fd => Linux::AIO::poll_fileno,
           poll => 'r', async => 1,
           cb => \&Linux::AIO::poll_cb);
 our %conn; # $conn{ip}{self} => connobj
       while ($h > 0) {
          if (0) {
             sysread $fh, $buf, $h > $::BUFSIZE ? $::BUFSIZE : $h
                or last;
          } else {
-            undef $buf;
-            $aio_requests->down;
             aio_read($fh, $l, ($h > $::BUFSIZE ? $::BUFSIZE : $h),
                      $buf, 0, sub {
                         $r = $_[0];
-                        $current->ready;
+                        Coro::ready($current);
                      });
             &Coro::schedule;
-            $aio_requests->up;
             last unless $r;
          }
-         my $w = $self->{fh}->syswrite($buf)
+         my $w = syswrite $self->{fh}, $buf
             or last;
          $::written += $w;
          $self->{written} += $w;
          $l += $r;
       }

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