fix shutdown() error and add CTY2117

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index d09527abc8938b98d1666e660c49b585620e9fed..d3817bedbd5fa8704aa9ce7bc062f22f62fd6f45 100644 (file)
--- 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);
        }