From 08c06444bb706e557a28f08ae7984ba2852ae720 Mon Sep 17 00:00:00 2001
From: minima <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.34.1