X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=e1ece5b93c35e932e118308785b6d8d7ca3e478f;hb=6b19958cbe351af8d5462f4e0e03b87875eec16a;hp=aaa38b533b47397ac40193c82fe771872e52d7d7;hpb=0e84728de35d2dadbb9d624614a471b68ae9eef6;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index aaa38b53..e1ece5b9 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -278,6 +278,13 @@ sub _new_client {
     }
 }
 
+sub close_server
+{
+	set_event_handler ($main_socket, "read" => undef);
+	$main_socket->close;
+	$main_socket = 0;
+}
+
 #----------------------------------------------------
 # Event loop routines used by both client and server