X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=d3817bedbd5fa8704aa9ce7bc062f22f62fd6f45;hb=3c2ea668af700128a081cc7c17ca93cc685fad37;hp=d09527abc8938b98d1666e660c49b585620e9fed;hpb=192c703baf1c01012bdf210ab2e1fca686be9c9c;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index d09527ab..d3817bed 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -331,7 +331,7 @@ sub disconnect
 
 	if (defined($sock)) {
 		set_event_handler ($sock, read => undef, write => undef, error => undef);
-		shutdown($sock, 3);
+		shutdown($sock, 2);
 		close($sock);
 	}