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.5 by root, Sat Dec 8 21:01:17 2007 UTC vs.
Revision 1.6 by root, Thu Feb 4 22:35:47 2010 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines