[Freeswitch-svn] [commit] r4370 - freeswitch/trunk/scripts/socket/FreeSWITCH

[Freeswitch SVN]

Author: anthm
Date: Fri Feb 23 13:02:50 2007
New Revision: 4370

Modified:
   freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm

Log:
fix Client.pm recv len

Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm
==============================================================================
--- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	(original)
+++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	Fri Feb 23 13:02:50 2007
@@ -69,7 +69,7 @@
     if ($h->{'content-length'}) {
       while(length($h->{body}) < $h->{'content-length'}) {
 	my $buf;
-	recv $s, $buf, $h->{'content-length'}, 0;
+	recv $s, $buf, $h->{'content-length'} - length($h->{body}), 0;
 	if (!$buf) {
 	  $h->{socketerror} = "yes";
 	  return $h;