made local aliases additive to the standard ones. Locals override standard

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 20e000334ca5d72d103d51e63f17694ea643bc88..aaa38b533b47397ac40193c82fe771872e52d7d7 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -67,7 +67,8 @@ sub disconnect {
     my $sock = delete $conn->{sock};
     return unless defined($sock);
     set_event_handler ($sock, "read" => undef, "write" => undef);
-    close($sock);
+    shutdown($sock, 3);
+       close($sock);
 }
 
 sub send_now {