Modified: freeswitch/trunk/src/mod/endpoints/mod_skinny/Net/Skinny/Client.pm (17511 => 17512)

--- freeswitch/trunk/src/mod/endpoints/mod_skinny/Net/Skinny/Client.pm	2010-05-10 16:19:58 UTC (rev 17511)
+++ freeswitch/trunk/src/mod/endpoints/mod_skinny/Net/Skinny/Client.pm	2010-05-10 16:19:58 UTC (rev 17512)
@@ -28,12 +28,14 @@
 $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 receive_messages_thread_func
 {
 	while(1) {
-	    $messages_receive_queue->enqueue($kept_self->SUPER::receive_message());
+		$messages_receive_queue->enqueue($kept_self->SUPER::receive_message());
 	}
 }