fixed double logout messages

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index b6140082f6a741b59ab5ece9541823213e2eafaa..ff173906bebef9945743b6e5eeb089bca430a886 100644 (file)
--- 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);