Preston_PLB/freeswitch
1
0
Fork 0
forked from Mirrors/freeswitch
Code Pull Requests Activity

Merge branch 'Perl-FreeSWITCH-sendmsg-fix' of git://scm.dashjr.org/var/scmroot/git/freeswitch

Browse Source
This commit is contained in:
Brian West 2011-03-10 10:27:10 -06:00
commit 24bd230274
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/perl/FreeSWITCH/Client.pm
View File

@ -143,7 +143,13 @@ sub sendmsg($$$) {
} }
$self->output("\n"); $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($$) { sub command($$) {