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

Comparing Coro/myhttpd/access.pl (file contents):
Revision 1.24 by root, Tue Dec 4 02:46:29 2001 UTC vs.
Revision 1.26 by root, Tue Dec 4 15:57:59 2001 UTC

 package transferqueue;
 my @reserve = (
-      [  1_000_000, 1],
+      [  1_200_000, 1],
-      [ 10_000_000, 1],
+      [  3_000_000, 1],
+      [ 75_000_000, 1],
 );
 sub new {
    my $class = shift;
-   bless {
+   my $self = bless {
       slots   => $_[0],
       lastspb => 0,
       avgspb  => 0,
    }, $class;
+   $self->{reschedule} = Event->timer(
+         after => 10,
+         interval => 3,
+         cb => sub { $self->wake_next },
+   );
+   $self;
 }
 sub start_transfer {
    my $self = shift;
    my $size = $_[0];
 }
 sub waiters {
    $_[0]->sort;
    @{$_[0]{wait}};
+}
+sub DESTROY {
+   my $self = shift;
+   $self->{reschedule}->cancel;
 }
 package transfer;
 use Coro::Timer ();

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