fix filter error handling and error counting

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 8720e940ac016e4ec5e8da04346f106d80722787..c4d2b1478943f4506af037ecca5fb57127d1fcee 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -598,7 +598,11 @@ sub run_cmd
        if ($ok) {
                delete $self->{errors};
        } else {
-               return $self->_error_out('e26');
+               if (++$self->{errors} > $DXChannel::maxerrors) {
+                       $self->send($self->msg('e26'));
+                       $self->disconnect;
+                       return ();
+               }
        }
        return map {s/([^\s])\s+$/$1/; $_} @ans;
 }