projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a23a857
)
fix split on simple words so that it splits on word boundaries
author
minima
<minima>
Wed, 21 Dec 2005 18:39:25 +0000
(18:39 +0000)
committer
minima
<minima>
Wed, 21 Dec 2005 18:39:25 +0000
(18:39 +0000)
Changes
patch
|
blob
|
history
perl/BadWords.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index e60696e747a77ce965d99c326a5fba6486500073..4e14f0877969aceca1cf44b625fcd2a58bc8c12e 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,6
@@
+21Dec05=======================================================================
+1. Add start of optional SQL working.
+2. Fix BadWords so that the simple word check splits words on word boundaries.
13Dec05=======================================================================
1. upissue version no to 1.52
07Nov05=======================================================================
13Dec05=======================================================================
1. upissue version no to 1.52
07Nov05=======================================================================
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index 3d7404387664d34ffe7e44cda5d7380a31f2ccd2..c21fe975d68c00d625f447629472eb8563561f24 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-107,7
+107,6
@@
sub check
return @out if @out;
for (split(/\b/, $s)) {
return @out if @out;
for (split(/\b/, $s)) {
- s/\'?S$//;
push @out, $_ if $badword->in($_);
}
push @out, $_ if $badword->in($_);
}