From 86567838c6cba3b9a3c7fed29cdf098a105fd92c Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Fri, 19 Dec 2008 17:25:52 +0000
Subject: [PATCH] fix bug in FS Client.pm

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@10884 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/socket/FreeSWITCH/Client.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index 5244782425..9e97218580 100644
--- a/scripts/socket/FreeSWITCH/Client.pm
+++ b/scripts/socket/FreeSWITCH/Client.pm
@@ -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";