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;