Fix multiple on_disc events in AsyncMsg.pm

[spider.git] / perl / AsyncMsg.pm

diff --git a/perl/AsyncMsg.pm b/perl/AsyncMsg.pm
index ff3b3bca07c01eae0c52afbc43a6cebfe08830c8..cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800 100644 (file)
--- a/perl/AsyncMsg.pm
+++ b/perl/AsyncMsg.pm
@@ -269,6 +269,7 @@ sub disconnect
                if ($dxchan) {
                        no strict 'refs';
                        $ondisc->($conn, $dxchan);
+                       delete $conn->{on_disconnect};
                }
        }
        delete $conn->{mojo};