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

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

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv17526/Classifier

Modified Files:
	WordMangle.pm 
Log Message:
Tests for the individual bucket page viewing word frequencies and emptying the bucket; TestHTML now covers 74% of the HTML.pm code; just the History page to test

Index: WordMangle.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/WordMangle.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** WordMangle.pm	22 Aug 2003 00:25:52 -0000	1.27
--- WordMangle.pm	23 Aug 2003 00:48:24 -0000	1.28
***************
*** 170,173 ****
--- 170,177 ----
      $stopword = $self->mangle( $stopword, 0, 1 );
  
+     if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
+         return 0;
+     }
+ 
      if ( $stopword ne '' ) {
          delete $self->{stop__}{$stopword};