fix bug in FS Client.pm

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@10884 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale 2008-12-19 17:25:52 +00:00
parent 57950f2927
commit 86567838c6
1 changed files with 3 additions and 3 deletions

View File

@ -73,7 +73,7 @@ sub readhash($;$) {
while(length($h->{body}) < $h->{'content-length'}) {
my $buf;
recv $s, $buf, $h->{'content-length'} - length($h->{body}), 0;
if (!$buf) {
if ($buf eq '') {
$h->{socketerror} = "yes";
return $h;
}
@ -152,9 +152,9 @@ sub command($$) {
my $r = $self->sendmsg({ 'command' => "api " . shift });
if ($r->{body}) {
if ($r->{body} ne '') {
$reply = $r->{body};
} elsif ($r->{'reply-text'}) {
} elsif ($r->{'reply-text'} ne '') {
$reply = $r->{'reply-text'};
} else {
$reply = "socketerror";