Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv20912/Classifier
Modified Files:
WordMangle.pm
Log Message:
Added tests for the HTML Advanced page and added new assertion type to test harness
Index: WordMangle.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/WordMangle.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** WordMangle.pm 31 Jul 2003 16:32:20 -0000 1.26
--- WordMangle.pm 22 Aug 2003 00:25:52 -0000 1.27
***************
*** 150,153 ****
--- 150,157 ----
$stopword = $self->mangle( $stopword, 0, 1 );
+ if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
+ return 0;
+ }
+
if ( $stopword ne '' ) {
$self->{stop__}{$stopword} = 1;
|
