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

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