From 08c06444bb706e557a28f08ae7984ba2852ae720 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 3 Sep 2001 18:51:34 +0000 Subject: [PATCH] fixed double logout messages --- perl/DXCommandmode.pm | 3 +++ 1 file changed, 3 insertions(+) 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); -- 2.43.0