From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 7 Mar 2010 11:18:53 +0000 (+0000)
Subject: remove debug messages all over chunked code
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=774c5ba74d808d504f5e6dd2b838f68e37b50842

remove debug messages all over chunked code

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@254 836a5e1a-633d-0410-964b-294494ad4392
---

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";