From: minima <minima>
Date: Mon, 3 Sep 2001 18:51:34 +0000 (+0000)
Subject: fixed double logout messages
X-Git-Tag: R_1_48~55
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=08c06444bb706e557a28f08ae7984ba2852ae720;p=spider.git

fixed double logout messages
---

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