[popfile-commit] engine/Classifier WordMangle.pm,1.26,1.27

[<jgr...@us...>]

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;