| … | … | ||
|---|---|---|---|
| 62 | schedule; | 62 | schedule; |
| 63 | } | 63 | } |
| 64 | } | 64 | } |
| 65 | } | 65 | } |
| 66 | 66 | ||
| 67 | async { | 67 | async { loop }; |
| 68 | |||
| 68 | slog 1, "accepting connections"; | 69 | slog 1, "accepting connections"; |
| 69 | while () { | 70 | while () { |
| 70 | $connections->down; | 71 | $connections->down; |
| 71 | push @fh, $port->accept; | 72 | push @fh, $port->accept; |
| 72 | #slog 3, "accepted @$connections ".scalar(@pool); | 73 | #slog 3, "accepted @$connections ".scalar(@pool); |
| 73 | if (@pool) { | 74 | if (@pool) { |
| 74 | (pop @pool)->ready; | 75 | (pop @pool)->ready; |
| 75 | } else { | 76 | } else { |
| 76 | async \&handler; | 77 | async \&handler; |
| 77 | } | ||
| 78 | |||
| 79 | } | 78 | } |
| 80 | }; | ||
| 81 | 79 | ||
| 82 | cede; | 80 | } |
| 83 | loop; | ||
| 84 | print "ende\n";#d# | ||
| 85 | 81 | ||
| 86 | package conn; | 82 | package conn; |
| 87 | 83 | ||
| 88 | use Socket; | 84 | use Socket; |
| 89 | use HTTP::Date; | 85 | use HTTP::Date; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |