projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix filter error handling and error counting
[spider.git]
/
perl
/
Filter.pm
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index 7119ed13e113a5ca84b05d0c6831a8e1e4b83a61..10021a4eada0e886660e65b44e699451bd8fb452 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-559,7
+559,7
@@
sub parse
}
return (1, $dxchan->msg('e20', $lasttok)) unless $found;
} else {
}
return (1, $dxchan->msg('e20', $lasttok)) unless $found;
} else {
-
my $s = '{' . decode_regex($tok) . '}' if $tok =~ /^{.*}$/
;
+
$s = $tok =~ /^{.*}$/ ? '{' . decode_regex($tok) . '}' : $tok
;
return (1, $dxchan->msg('filter2', $s));
}
$lasttok = $tok;
return (1, $dxchan->msg('filter2', $s));
}
$lasttok = $tok;
@@
-606,8
+606,8
@@
sub cmd
$filter->{$fn}->{$type}->{user} = $user;
$filter->{$fn}->{$type}->{asc} = $s;
$filter->{$fn}->{$type}->{user} = $user;
$filter->{$fn}->{$type}->{asc} = $s;
- $r = $filter->compile($fn, $type);
- return (
1
,$r) if $r;
+ $r = $filter->compile($fn, $type);
# NOTE: returns an ERROR, therefore 0 = success
+ return (
0
,$r) if $r;
$r = $filter->write;
return (1,$r) if $r;
$r = $filter->write;
return (1,$r) if $r;