| … | … | ||
|---|---|---|---|
| 13 | my $self = bless { | 13 | my $self = bless { |
| 14 | slots => $_[0], | 14 | slots => $_[0], |
| 15 | lastspb => 0, | 15 | lastspb => 0, |
| 16 | avgspb => 0, | 16 | avgspb => 0, |
| 17 | }, $class; | 17 | }, $class; |
| 18 | $self->{reschedule} = Event->timer( | 18 | $self->{reschedule} = EV::timer 10, 3, sub { $self->wake_next }; |
| 19 | after => 10, | ||
| 20 | interval => 3, | ||
| 21 | cb => sub { $self->wake_next }, | ||
| 22 | ); | ||
| 23 | $self; | 19 | $self; |
| 24 | } | 20 | } |
| 25 | 21 | ||
| 26 | sub start_transfer { | 22 | sub start_transfer { |
| 27 | my $self = shift; | 23 | my $self = shift; |
| … | … | ||
| 85 | sub waiters { | 81 | sub waiters { |
| 86 | $_[0]->sort; | 82 | $_[0]->sort; |
| 87 | @{$_[0]{wait}}; | 83 | @{$_[0]{wait}}; |
| 88 | } | 84 | } |
| 89 | 85 | ||
| 90 | sub DESTROY { | ||
| 91 | my $self = shift; | ||
| 92 | |||
| 93 | $self->{reschedule}->cancel; | ||
| 94 | } | ||
| 95 | |||
| 96 | package transfer; | 86 | package transfer; |
| 97 | 87 | ||
| 98 | use Coro::Timer (); | 88 | use Coro::Timer (); |
| 99 | 89 | ||
| 100 | sub wake { | 90 | sub wake { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |