projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix RBN (and other) basecall issues
[spider.git]
/
perl
/
Filter.pm
diff --git
a/perl/Filter.pm
b/perl/Filter.pm
index 64d05508a5311b63661aeab0095c7f9e3735aca2..7119ed13e113a5ca84b05d0c6831a8e1e4b83a61 100644
(file)
--- a/
perl/Filter.pm
+++ b/
perl/Filter.pm
@@
-416,7
+416,8
@@
sub parse
# check the line for non legal characters
dbg("Filter::parse line: '$line'") if isdbg('filter');
# check the line for non legal characters
dbg("Filter::parse line: '$line'") if isdbg('filter');
- return ('ill', $dxchan->msg('e19')) if $line !~ /{.*}/ && $line =~ /[^\s\w,_\-\*\/\(\)\$!]/;
+ my @ch = $line =~ m|([^\s\w,_\.:\/\-\*\(\)\$!])|g;
+ return ('ill', $dxchan->msg('e19', join(' ', @ch))) if $line !~ /{.*}/ && @ch;
$line = lc $line;
$line = lc $line;