X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAsyncMsg.pm;h=cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800;hb=cbb522ef802d48991734a4ce803fa6ffa9774588;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};