X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FCWMP%2FServer.pm;h=f90b115e8273624ca836bd55a30155363169dc18;hb=2692c36a40349a6d2ba75e7e63c7808e7e40e574;hp=f69ece6d40f9d6a26da0083f4d7c509de0142e24;hpb=7b15acb7d67a6679a3c498850a4fffa1459eb0b9;p=perl-cwmp.git

diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm
index f69ece6..f90b115 100644
--- a/lib/CWMP/Server.pm
+++ b/lib/CWMP/Server.pm
@@ -125,8 +125,6 @@ sub sock_session {
 
 	return $sock->connected unless $headers;
 
-warn dump( $headers );
-
 	warn "missing $_ header\n" foreach grep { ! defined $headers->{ lc $_ } } ( 'SOAPAction' );
 
 	my $body;
@@ -134,16 +132,12 @@ warn dump( $headers );
 		read( $sock, $body, $len );
 	} elsif ( $headers->{'transfer-encoding'} =~ m/^chunked/i ) {
 		while ( my $len = <$sock> ) {
-warn "chunked ",dump($len);
 			$len =~ s/[\r\n]+$//;
 			$len = hex($len);
 			last if $len == 0;
-warn "reading $len bytes\n";
 			read( $sock, my $chunk, $len );
-warn "|$chunk| $len == ", length($chunk);
 			$body .= $chunk;
 			my $padding = <$sock>;
-warn "padding ",dump($padding);
 		}
 	} else {
 		warn "empty request\n";