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