--- google/lib/CWMP/Server.pm 2007/06/20 20:24:34 54 +++ google/lib/CWMP/Server.pm 2007/06/20 20:49:53 55 @@ -51,6 +51,8 @@ $self->queue ? " queue ( " . join(",",@{$self->queue}) . " )" : "", "\n"; + warn "## debug level: ", $self->debug, "\n" if $self->debug; + while ( my $sock = $listen->accept ) { $sock->autoflush(1); @@ -58,7 +60,7 @@ $self->sock( $sock ); # FIXME this will not work for multiple clients while ( $self->process_request ) { - warn "...another one bites a dust...\n"; + warn "...another one bites the dust...\n"; } warn "...returning to accepting new connections\n";