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 '' ) {
|
