… | … | ||
---|---|---|---|
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 |