X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FCWMP%2FServer.pm;h=13a923c8efcbeeda5dacb6770c2dc050f7979704;hb=03eb97317af85b13a1a2c8d0f66685d763a60c32;hp=52f9016ef1056b8c82435fe75d4dc6ee8894749c;hpb=12a50bdc9389aa9a6dd5011365c11ed2091106e7;p=perl-cwmp.git

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 52f9016..13a923c 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -135,18 +135,16 @@ sub process_request {
 		$sess->{sock} = $sock;
 		$sess->{debug} = $prop->{debug};
 
-		warn "## sess = ", dump( $sess );
-
 		my $session = CWMP::Session->new( $sess ) || confess "can't create session from ",dump( $sess );
 
 		while ( $session->process_request ) {
-			warn "...waiting for next request from CPE...\n";
+			warn "...waiting for next request from CPE...\n" if $prop->{debug};
 		}
 	};
 
 	warn "ERROR: $@\n" if $@;
 
-	warn "...returning to accepting new connections\n";
+	warn "...returning to accepting new connections\n" if $prop->{debug};
 
 }