added some actual code to sh/wx

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 1c86c70ddd170a3a55b093dafd82087b0a2f5dd0..1f0da5f44cbf0d4b6c0ccff9e0f15753303b0f8c 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -266,7 +266,7 @@ sub disconnect
        }
 
        if (defined($sock)) {
-               $sock->close_gracefully;
+               undef $sock;
        }
        
        unless ($main::is_win) {