X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FServer.pm;fp=lib%2FCWMP%2FServer.pm;h=eaf6c065b73541aa68566c49f303bb160b5fbc41;hp=f90b115e8273624ca836bd55a30155363169dc18;hb=426db8401029bb7d41479bacb36ac0b4b5f2e495;hpb=a2544f1449c8b1f24a1f7ff0f8bcd79ab0eac977

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index f90b115..eaf6c06 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -90,10 +90,13 @@ sub run {
 	while (1) {
 		my $client = $server->accept() || next; # ALARM trickle us
 
+		my $count = 0;
+
 		my $session = CWMP::Session->new( $self->session ) || confess "can't create sessision";
 
 		while ( $self->sock_session( $client, $session ) ) {
-			warn "# another one\n";
+			$count++;
+			warn "# finished request $count, waiting for next one\n";
 		}
 
 		warn "# connection to ", $client->peerhost, " closed\n";