X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=aaa38b533b47397ac40193c82fe771872e52d7d7;hb=2f4355fb63f336cce61887b189d5556faf1734d7;hp=65a32a662c64e7e1ec82df62d2bc94ba19cd848f;hpb=b4826d1f4125788e14fed3adbb99e66242904e74;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 65a32a66..aaa38b53 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -68,6 +68,7 @@ sub disconnect {
     return unless defined($sock);
     set_event_handler ($sock, "read" => undef, "write" => undef);
     shutdown($sock, 3);
+	close($sock);
 }
 
 sub send_now {