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.
    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 
 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 ($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 ();
                        $self->send($self->msg('e26'));
                        $self->disconnect;
                        return ();