Fix for MODAPP-27 from Bret McDanel.

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

scripts/socket/FreeSWITCH/Client.pm

@@ -67,6 +67,7 @@ sub readhash($;$) {
     }
     
     if ($h->{'content-length'}) {
+      if(! defined $h->{body}) { $h->{body}=0; }
       while(length($h->{body}) < $h->{'content-length'}) {
 	my $buf;
 	recv $s, $buf, $h->{'content-length'} - length($h->{body}), 0;