X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAsyncMsg.pm;h=cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800;hb=5cbf895de1c7c0a4172e376af0cab8f23ca5c89e;hp=ff3b3bca07c01eae0c52afbc43a6cebfe08830c8;hpb=16b98fc9cae1d4fb357aad17850a2aa1a601b053;p=spider.git

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