if ($ok) {
delete $self->{errors};
} else {
- return $self->_error_out('e26');
+ if ($self != $main::me && ++$self->{errors} > $DXChannel::maxerrors) {
+ $self->send($self->msg('e26'));
+ $self->disconnect;
+ return ();
+ }
}
return map {s/([^\s])\s+$/$1/; $_} @ans;
}
if (isdbg('eval')) {
my @list = split /\n/, $eval;
- my $line;
for (@list) {
dbg($_ . "\n") if isdbg('eval');
}