X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=9b3b09e3f4e24572f5ee5e45462c09eff0d41346;hb=a9072bdb10a67ad28edda787cbf38018356b2db5;hp=753f59f79e4788e5211c77353c3d891de8b38789;hpb=2841b340579dae85808c5a571df3140b736c2fb2;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 753f59f7..9b3b09e3 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -559,6 +559,9 @@ sub disconnect
 	# send info to all logged in thingies
 	$self->tell_login('logoutu');
 
+	# remove any outstanding pings I have sent
+	Thingy::Ping::forget($call);
+	
 	Log('DXCommand', "$call disconnected");
 
 	$self->SUPER::disconnect;