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

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