[popfile-commit] engine/Classifier WordMangle.pm,1.32,1.33

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

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

Modified Files:
	WordMangle.pm 
Log Message:
Fix bug 835862, removes slash from mangled words to prevent regexps problems; update test suite

Index: WordMangle.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/WordMangle.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** WordMangle.pm	28 Oct 2003 01:06:46 -0000	1.32
--- WordMangle.pm	4 Nov 2003 20:01:16 -0000	1.33
***************
*** 122,126 ****
      # Remove characters that would mess up a Perl regexp and replace with .
  
!     $lcword =~ s/(\+|\/|\?|\*|\||\(|\)|\[|\]|\{|\}|\^|\$|\.)/\./g;
  
      # Long words are ignored also
--- 122,126 ----
      # Remove characters that would mess up a Perl regexp and replace with .
  
!     $lcword =~ s/(\+|\/|\?|\*|\||\(|\)|\[|\]|\{|\}|\^|\$|\.|\\)/\./g;
  
      # Long words are ignored also
***************
*** 139,143 ****
      $lcword =~ s/://g if ( !defined( $allow_colon ) );
  
!     return ($word =~ /:/ )?$word:$lcword;
  }
  
--- 139,143 ----
      $lcword =~ s/://g if ( !defined( $allow_colon ) );
  
!     return ($lcword =~ /:/ )?$word:$lcword;
  }