Bugfix: FreeSWITCH::Client::sendmsg was returning the first FSES packet it received...

diff --git a/scripts/perl/FreeSWITCH/Client.pm b/scripts/perl/FreeSWITCH/Client.pm
index 9e972185807c2ad052537e8fff4575fdbc1cb6e2..01748a8180dcabc6034a77fb7f4e71e0cd62b863 100644 (file)
--- a/scripts/perl/FreeSWITCH/Client.pm
+++ b/scripts/perl/FreeSWITCH/Client.pm
@@ -143,7 +143,13 @@ sub sendmsg($$$) {
   }
   $self->output("\n");
 
-  return $self->readhash($to);
+  for(;;) {
+    $e = $self->readhash(undef);
+    last if $e->{socketerror} or $e->{'content-type'} eq 'command/reply';
+    push @{$self->{events}}, $e;
+  }
+
+  return $e;
 }
 
 sub command($$) {