r232@brr: dpavlin | 2007-11-18 18:02:50 +0100

[perl-cwmp.git] / lib / CWMP / Server.pm

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 5a452c2..13a923c 100644 (file)
--- 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};
 
 }