bugfix: prevented endless loop in sendmsg

FS-8667 - some commands do not send a response with the type
command/reply but send api/response instead. check for this type,
too in order to prevent $client->comand() from never returning
to the users script.

diff --git a/scripts/perl/FreeSWITCH/Client.pm b/scripts/perl/FreeSWITCH/Client.pm
index 01748a8180dcabc6034a77fb7f4e71e0cd62b863..f107aa3d82f6557b84f9d3aa7ce2ab7318ab8f21 100644 (file)
--- a/scripts/perl/FreeSWITCH/Client.pm
+++ b/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;
   }