| … | |
… | |
| 65 | $min += $_->[1]; |
65 | $min += $_->[1]; |
| 66 | } |
66 | } |
| 67 | last unless $self->{slots} > $min; |
67 | last unless $self->{slots} > $min; |
| 68 | my $transfer = shift @{$self->{wait}}; |
68 | my $transfer = shift @{$self->{wait}}; |
| 69 | $self->{lastspb} = $transfer->{spb}; |
69 | $self->{lastspb} = $transfer->{spb}; |
| 70 | $self->{avgspb} = $self->{avgspb} * 0.99 + $transfer->{spb} * 0.01; |
70 | $self->{avgspb} = $self->{avgspb} * 0.999 + $transfer->{spb} * 0.001; |
| 71 | $self->{started}++; |
71 | $self->{started}++; |
| 72 | $transfer->wake; |
72 | $transfer->wake; |
| 73 | last; |
73 | last; |
| 74 | } |
74 | } |
| 75 | } |
75 | } |
