|
From: <jgr...@us...> - 2003-11-04 20:01:20
|
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;
}
|