From f208d56126fc1804fc3adb80a0e3ac7356e37d8d Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 6 Mar 2023 22:57:10 +0000 Subject: [PATCH] fix error regression caused by filter chanages --- Changes | 2 ++ perl/DXCommandmode.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 9fcdc27a..43343693 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,8 @@ if there are actually any detected parse errors. 2. Fix warnings on difft. 3. Add the origin of any incoming SP if it is emailed to the recipient. +4. Oops I accidently restored one path of the node being disconnected that I + fixed below (because of changes to filtering). 04Mar23======================================================================= 1. Fixed regression caused by too many command errors in (startup) script files. This is caused by much stricter checking of commands entered both diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index c4d2b147..d0f9bb65 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -598,7 +598,7 @@ sub run_cmd if ($ok) { delete $self->{errors}; } else { - if (++$self->{errors} > $DXChannel::maxerrors) { + if ($self != $main::me && ++$self->{errors} > $DXChannel::maxerrors) { $self->send($self->msg('e26')); $self->disconnect; return (); -- 2.34.1