kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

perl-Skinny: don't launch thread if socket can't be created

This commit is contained in:
Mathieu Parent 2010-05-10 18:06:26 +02:00
parent 74e14f0dfb
commit bd6f7e73c0
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mod/endpoints/mod_skinny/Net/Skinny/Client.pm
View File

@ -28,12 +28,14 @@ my $messages_receive_queue;
$Config{useithreads} or die('Recompile Perl with threads to run this program.');
sub new {
$kept_self = shift->SUPER::new(@_);
$kept_self = shift->SUPER::new(@_);
$messages_send_queue = Thread::Queue->new();
$messages_receive_queue = Thread::Queue->new();
threads->create(\&send_messages_thread_func);
threads->create(\&receive_messages_thread_func);
return $kept_self;
if ($kept_self) {
threads->create(\&send_messages_thread_func);
threads->create(\&receive_messages_thread_func);
}
return $kept_self;
}
sub send_message {
@ -87,7 +89,7 @@ sub send_messages_thread_func
sub receive_messages_thread_func
{
while(1) {
$messages_receive_queue->enqueue($kept_self->SUPER::receive_message());
$messages_receive_queue->enqueue($kept_self->SUPER::receive_message());
}
}