X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=d3817bedbd5fa8704aa9ce7bc062f22f62fd6f45;hb=996671c938dad51eb1d45667976d6599e51fd572;hp=d09527abc8938b98d1666e660c49b585620e9fed;hpb=af317b42b0135f6d63547d74ee70fda982e31808;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);
 	}