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

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

This commit is contained in:
Brian West 2011-03-10 10:27:10 -06:00
parent 3bbab5cbea 189d81a1b2
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");
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($$) {