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