… | … | ||
---|---|---|---|
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 |