From 10b11871101fba1d16da31fe8fae380b355a123f Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Fri, 23 Feb 2007 18:02:50 +0000
Subject: [PATCH] fix Client.pm recv len

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@4370 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/socket/FreeSWITCH/Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index 96daddd325..c1fb35f854 100644
--- a/scripts/socket/FreeSWITCH/Client.pm
+++ b/scripts/socket/FreeSWITCH/Client.pm
@@ -69,7 +69,7 @@ sub readhash($;$) {
     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;