X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=lib%2FCWMP%2FServer.pm;h=d64e4726bca1b9172fc6b2f2b67783e20427276e;hp=12d8702dffc078c2006f3213bcd6419ee6a90485;hb=10c3db1245fdbab90cd5274d96b1bc829153c14a;hpb=eccf2bab1ad1409875d7b9025768abad8ed955e4

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index 12d8702..d64e472 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -138,7 +138,7 @@ sub process_request {
 	my $sock = $prop->{client};
 	confess "no sock in ", ref( $self ) unless $sock;
 
-	warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue});
+	warn "default CPE queue ", dump( $prop->{default_queue} ), "\n" if defined($prop->{default_queue});
 
 	eval  {
 		my $session = CWMP::Session->new({
@@ -149,7 +149,7 @@ sub process_request {
 		}) || confess "can't create session";
 
 		while ( $session->process_request ) {
-			warn "...another one bites the dust...\n";
+			warn "...waiting for next request from CPE...\n";
 		}
 	};