Fix multiple on_disc events in AsyncMsg.pm

diff --git a/Changes b/Changes
index 6928c43cb09583ed5b92cef8bb2453d0ae892bca..7857d3a3bf3f9440af88b37367de221240ee396c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 30Dec15=======================================================================
 1. Add CTY-2516 prefix file
 2. Try to stop and also reset node call user records back to 'S'
+3. Fix multiple on_disc events in AsyncMsg.pm
 02Jun15=======================================================================
 1. Extend regex for quit to allow other commands starting in 'q'.
 2. Add CTY-2506 prefix file

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};