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=13a923c8efcbeeda5dacb6770c2dc050f7979704;hp=5a452c25114d76f01acc7d94d26980b7942c481a;hb=a3054c07e947369d093244cb48d5740c897f43a9;hpb=7a346eeec59e7415d184a0e76cc863863cc308f6

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 5a452c2..13a923c 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -138,13 +138,13 @@ sub process_request {
 		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};
 
 }