X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=ff173906bebef9945743b6e5eeb089bca430a886;hp=b6140082f6a741b59ab5ece9541823213e2eafaa;hb=08c06444bb706e557a28f08ae7984ba2852ae720;hpb=b51a81586ebf52195e587daf321eb7053a2de16e

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index b6140082..ff173906 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -425,6 +425,9 @@ sub disconnect
 {
 	my $self = shift;
 	my $call = $self->call;
+
+	return if $self->{disconnecting}++;
+
 	delete $self->{senddbg};
 
 	my $uref = Route::User::get($call);