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;