projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Correct 12m band CW segment definition
[spider.git]
/
perl
/
BadWords.pm
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index b598c385d4e940f45716a4f2f35c303ad9b46e1e..7ae0373f436f007edcd259af76b2699f3f210a6d 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-24,7
+24,7
@@
my $regex = "$main::data/badw_regex";
my $bwfn = "$main::data/badword";
# copy issue ones across
my $bwfn = "$main::data/badword";
# copy issue ones across
-filecopy("$regex.issue", $regex) unless -e $regex;
+filecopy("$regex.
gb.
issue", $regex) unless -e $regex;
filecopy("$bwfn.issue", $bwfn) unless -e $bwfn;
$badword = new DXHash "badword";
filecopy("$bwfn.issue", $bwfn) unless -e $bwfn;
$badword = new DXHash "badword";
@@
-102,7
+102,6
@@
sub check
my $s = uc shift;
my @out;
my $s = uc shift;
my @out;
- dbg($s) if isdbg('badword');
push @out, &$regexcode($s) if $regexcode;
return @out if @out;
push @out, &$regexcode($s) if $regexcode;
return @out if @out;