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

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

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

Modified Files:
	WordMangle.pm 
Log Message:
Fix minor problems in test suite

Index: WordMangle.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/WordMangle.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** WordMangle.pm	23 Aug 2003 00:48:24 -0000	1.28
--- WordMangle.pm	24 Aug 2003 03:30:08 -0000	1.29
***************
*** 148,157 ****
      my ( $self, $stopword ) = @_;
  
-     $stopword = $self->mangle( $stopword, 0, 1 );
- 
      if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
          return 0;
      }
  
      if ( $stopword ne '' ) {
          $self->{stop__}{$stopword} = 1;
--- 148,157 ----
      my ( $self, $stopword ) = @_;
  
      if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
          return 0;
      }
  
+     $stopword = $self->mangle( $stopword, 0, 1 );
+ 
      if ( $stopword ne '' ) {
          $self->{stop__}{$stopword} = 1;
***************
*** 168,176 ****
      my ( $self, $stopword ) = @_;
  
-     $stopword = $self->mangle( $stopword, 0, 1 );
- 
      if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
          return 0;
      }
  
      if ( $stopword ne '' ) {
--- 168,176 ----
      my ( $self, $stopword ) = @_;
  
      if ( $stopword =~ /[^[:lower:]\-_\.\@0-9]/i ) {
          return 0;
      }
+ 
+     $stopword = $self->mangle( $stopword, 0, 1 );
  
      if ( $stopword ne '' ) {