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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.50 by root, Wed Nov 28 03:40:15 2001 UTC vs.
Revision 1.51 by root, Thu Nov 29 01:50:41 2001 UTC

 our $httpevent   = new Coro::Signal;
 our $wait_factor = 0.95;
 our @transfers = (
-  (new Coro::Semaphore $MAX_TRANSFERS_SMALL),
+  (new transferqueue $MAX_TRANSFERS_SMALL),
-  (new Coro::Semaphore $MAX_TRANSFERS_LARGE),
+  (new transferqueue $MAX_TRANSFERS_LARGE),
 );
 my @newcons;
 my @pool;
          if ($l) {
             sysseek $fh, $l, 0;
          }
       }
-      my $transfer; # transfer guard
+      my $transfer = $queue->start_transfer;
+      my $locked;
       my $bufsize = $::WAIT_BUFSIZE; # initial buffer size
-      $self->{time} = $::NOW;
       while ($h > 0) {
-         unless ($transfer) {
+         unless ($locked) {
-            if ($transfer ||= $queue->timed_guard($::WAIT_INTERVAL)) {
+            if ($locked ||= $transfer->try($::WAIT_INTERVAL)) {
                $bufsize = $::BUFSIZE;
                $self->{time} = $::NOW;
             }
          }

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