From 5cbf895de1c7c0a4172e376af0cab8f23ca5c89e Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0