ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/myhttpd/queue.pl
(Generate patch)

Comparing Coro/myhttpd/queue.pl (file contents):
Revision 1.2 by root, Mon May 20 04:08:03 2002 UTC vs.
Revision 1.3 by root, Wed May 22 00:33:26 2002 UTC

75} 75}
76 76
77sub force_wake_next { 77sub force_wake_next {
78 my $self = shift; 78 my $self = shift;
79 79
80 $self->{slots} += 1; 80 $self->{slots} += $::MAX_TRANSFERS;
81 $self->wake_next; 81 $self->wake_next;
82 $self->{slots} -= 1; 82 $self->{slots} -= $::MAX_TRANSFERS;
83} 83}
84 84
85sub waiters { 85sub waiters {
86 $_[0]->sort; 86 $_[0]->sort;
87 @{$_[0]{wait}}; 87 @{$_[0]{wait}};

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines