51 |
$self->queue ? " queue ( " . join(",",@{$self->queue}) . " )" : "", |
$self->queue ? " queue ( " . join(",",@{$self->queue}) . " )" : "", |
52 |
"\n"; |
"\n"; |
53 |
|
|
54 |
|
warn "## debug level: ", $self->debug, "\n" if $self->debug; |
55 |
|
|
56 |
while ( my $sock = $listen->accept ) { |
while ( my $sock = $listen->accept ) { |
57 |
$sock->autoflush(1); |
$sock->autoflush(1); |
58 |
|
|
60 |
|
|
61 |
$self->sock( $sock ); # FIXME this will not work for multiple clients |
$self->sock( $sock ); # FIXME this will not work for multiple clients |
62 |
while ( $self->process_request ) { |
while ( $self->process_request ) { |
63 |
warn "...another one bites a dust...\n"; |
warn "...another one bites the dust...\n"; |
64 |
} |
} |
65 |
|
|
66 |
warn "...returning to accepting new connections\n"; |
warn "...returning to accepting new connections\n"; |