fix Client.pm recv len

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@4370 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index 96daddd325c4c8f94e5c7d9916147b38a796484c..c1fb35f854e86971fd97c2b828c56182b24824fd 100644 (file)
--- 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;