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

[Freeswitch SVN]

Author: mikej
Date: Tue Sep 11 18:33:08 2007
New Revision: 5700

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

Log:
Fix for MODAPP-27 from Bret McDanel.

Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm
==============================================================================
--- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	(original)
+++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm	Tue Sep 11 18:33:08 2007
@@ -67,6 +67,7 @@
     }
     
     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;