Merge pull request #639 in FS/freeswitch from…

Merge pull request #639 in FS/freeswitch from ~GRINDHOLD/freeswitch:bugfix/perl-sendmsg-fix to master

* commit 'c61f6826':
  bugfix: prevented endless loop in sendmsg

scripts/perl/FreeSWITCH/Client.pm

@@ -145,7 +145,8 @@ sub sendmsg($$$) {
 
   for(;;) {
     $e = $self->readhash(undef);
-    last if $e->{socketerror} or $e->{'content-type'} eq 'command/reply';
+    last if $e->{socketerror} or $e->{'content-type'} eq 'command/reply'
+                              or $e->{'content-type'} eq 'api/response';
     push @{$self->{events}}, $e;
   }