X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=ff173906bebef9945743b6e5eeb089bca430a886;hb=85f715f5353a78bac85f1802c22d6e7b9352ca81;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);