X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAsyncMsg.pm;h=cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800;hb=772dc67533220a11f5ff6962abff8ea46d247ece;hp=ff3b3bca07c01eae0c52afbc43a6cebfe08830c8;hpb=511d83a615a5e65e85d7337c85280c2b6470a91b;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};