X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=1f0da5f44cbf0d4b6c0ccff9e0f15753303b0f8c;hb=0ba8b8bf6f01f405661aef65a070a8557e98dd3b;hp=cd5dd051b8c384f0011fdd496335c2638d9f9570;hpb=511d83a615a5e65e85d7337c85280c2b6470a91b;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index cd5dd051..1f0da5f4 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -266,7 +266,7 @@ sub disconnect
 	}
 
 	if (defined($sock)) {
-		$sock->close;
+		undef $sock;
 	}
 	
 	unless ($main::is_win) {