X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=1f0da5f44cbf0d4b6c0ccff9e0f15753303b0f8c;hb=43436b1b70ab2c2f8bd8ed511061b45a2f5be8a6;hp=1c86c70ddd170a3a55b093dafd82087b0a2f5dd0;hpb=b0d9bed295647635da9cd1ceeb5e4592bd87094b;p=spider.git

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