From 5cbf895de1c7c0a4172e376af0cab8f23ca5c89e Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 30 Dec 2015 22:45:29 +0000
Subject: [PATCH] Fix multiple on_disc events in AsyncMsg.pm

---
 Changes          | 1 +
 perl/AsyncMsg.pm | 1 +
 2 files changed, 2 insertions(+)

diff --git a/Changes b/Changes
index 6928c43c..7857d3a3 100644
--- 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 ff3b3bca..cb1c2f2b 100644
--- 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};
-- 
2.34.1