X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=1f0da5f44cbf0d4b6c0ccff9e0f15753303b0f8c;hb=43436b1b70ab2c2f8bd8ed511061b45a2f5be8a6;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) {