projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix stupid unpad typo in dx command
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 8720e940ac016e4ec5e8da04346f106d80722787..d1feb3e18eb2e6dea892108a3eb15d2a8977d81f 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-598,7
+598,11
@@
sub run_cmd
if ($ok) {
delete $self->{errors};
} else {
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;
}
}
return map {s/([^\s])\s+$/$1/; $_} @ans;
}
@@
-878,7
+882,6
@@
sub find_cmd_name {
if (isdbg('eval')) {
my @list = split /\n/, $eval;
if (isdbg('eval')) {
my @list = split /\n/, $eval;
- my $line;
for (@list) {
dbg($_ . "\n") if isdbg('eval');
}
for (@list) {
dbg($_ . "\n") if isdbg('eval');
}