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

Comparing Coro/myhttpd/access.pl (file contents):
Revision 1.21 by root, Mon Dec 3 05:52:37 2001 UTC vs.
Revision 1.22 by root, Mon Dec 3 14:44:14 2001 UTC

 sub start_transfer {
    my $self = shift;
    my $size = $_[0];
    my $transfer = bless {
-      queue => $self,
+      queue   => $self,
-      time  => $::NOW,
+      time    => $::NOW,
-      size  => $size,
+      size    => $size,
-      coro  => $Coro::current,
+      coro    => $Coro::current,
+      started => 0,
    }, transfer::;
    push @{$self->{wait}}, $transfer;
-   Scalar::Util::weaken($self->{wait}[-1]);
    $self->wake_next;
-   $trans;
+   $transfer;
+}
+sub sort {
+   my @queue = grep $_, @{$_[0]{wait}};
+   $_->{spb} = ($::NOW-$_->{time}) / ($_->{size} || 1) for @queue;
+   $_[0]{wait} = [sort { $b->{spb} <=> $a->{spb} } @queue];
+   Scalar::Util::weaken $_ for @{$_[0]{wait}};
 }
 sub wake_next {
    my $self = shift;
       my $transfer = shift @{$self->{wait}};
       if ($transfer) {
          $self->{lastspb} = $transfer->{spb};
          $self->{avgspb} ||= $transfer->{spb};
          $self->{avgspb} = $self->{avgspb} * 0.95 + $transfer->{spb} * 0.05;
+         $self->{started}++;
          $transfer->wake;
          last;
       }
    }
-}
-sub sort {
-   my @queue = grep $_, @{$_[0]{wait}};
-   $_->{spb} = ($::NOW-$_->{time}) / ($_->{size} || 1) for @queue;
-   $_[0]{wait} = [sort { $b->{spb} <=> $a->{spb} } @queue];
 }
 sub waiters {
    $_[0]->sort;
    @{$_[0]{wait}};

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