fix error regression caused by filter chanages

diff --git a/Changes b/Changes
index 9fcdc27af5fb6c5459965113db5b4e0167511e32..4334369324d2c2c1a1b3245f62f29f387b456526 100644 (file)
--- 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 c4d2b1478943f4506af037ecca5fb57127d1fcee..d0f9bb6531cf25bfffe6627e1cfc5f64807c1d69 100644 (file)
--- 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 ();