… | … | ||
---|---|---|---|
72 | $transfer->wake; | 72 | $transfer->wake; |
73 | last; | 73 | last; |
74 | } | 74 | } |
75 | } | 75 | } |
76 | 76 | ||
77 | sub force_wake_next { | ||
78 | my $self = shift; | ||
79 | |||
80 | $self->{slots} += $::MAX_TRANSFERS; | ||
81 | $self->wake_next; | ||
82 | $self->{slots} -= $::MAX_TRANSFERS; | ||
83 | } | ||
84 | |||
77 | sub waiters { | 85 | sub waiters { |
78 | $_[0]->sort; | 86 | $_[0]->sort; |
79 | @{$_[0]{wait}}; | 87 | @{$_[0]{wait}}; |
80 | } | 88 | } |
81 | 89 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |