1. Added set/name, set/qra, set/location, set/qth, set/homenode, set/bbs,

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 7114eba8b9eea3ad3e9133d921f162694fbb824b..65a32a662c64e7e1ec82df62d2bc94ba19cd848f 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -5,6 +5,9 @@
 #
 # I have modified it to suit my devious purposes (Dirk Koopman G1TLH)
 #
+# $Id$
+#
+
 package Msg;
 
 require Exporter;
@@ -64,7 +67,7 @@ sub disconnect {
     my $sock = delete $conn->{sock};
     return unless defined($sock);
     set_event_handler ($sock, "read" => undef, "write" => undef);
-    close($sock);
+    shutdown($sock, 3);
 }
 
 sub send_now {