Comparing Coro/myhttpd/queue.pl (file contents):
Revision 1.1 by root, Sun May 19 21:00:48 2002 UTC vs.
Revision 1.2 by root, Mon May 20 04:08:03 2002 UTC
| … | |
… | |
| 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} += 1; |
|
|
81 | $self->wake_next; |
|
|
82 | $self->{slots} -= 1; |
|
|
83 | } |
|
|
84 | |
| 77 | sub waiters { |
85 | sub waiters { |
| 78 | $_[0]->sort; |
86 | $_[0]->sort; |
| 79 | @{$_[0]{wait}}; |
87 | @{$_[0]{wait}}; |
| 80 | } |
88 | } |
| 81 | |
89 | |
Diff Legend
| – |
Removed lines |
| + |
Added lines |
| < |
Changed lines |
| > |
Changed lines |
