Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv27372a/Classifier
Modified Files:
Bayes.pm WordMangle.pm
Log Message:
Fix inconsistent language referring to stop_word vs stopword
Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.145
retrieving revision 1.146
diff -C2 -d -r1.145 -r1.146
*** Bayes.pm 20 May 2003 20:15:02 -0000 1.145
--- Bayes.pm 20 May 2003 20:20:32 -0000 1.146
***************
*** 1610,1614 ****
# ---------------------------------------------------------------------------------------------
#
! # get_stop_word_list
#
# Gets the complete list of stop words
--- 1610,1614 ----
# ---------------------------------------------------------------------------------------------
#
! # get_stopword_list
#
# Gets the complete list of stop words
***************
*** 1616,1620 ****
# ---------------------------------------------------------------------------------------------
! sub get_stop_word_list
{
my ( $self ) = @_;
--- 1616,1620 ----
# ---------------------------------------------------------------------------------------------
! sub get_stopword_list
{
my ( $self ) = @_;
Index: WordMangle.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/WordMangle.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** WordMangle.pm 7 Apr 2003 17:55:48 -0000 1.22
--- WordMangle.pm 20 May 2003 20:20:33 -0000 1.23
***************
*** 28,32 ****
bless $self, $type;
! $self->load_stop_words();
return $self;
--- 28,32 ----
bless $self, $type;
! $self->load_stopwords();
return $self;
***************
*** 35,42 ****
# ---------------------------------------------------------------------------------------------
#
! # load_stop_words, save_stop_words - load and save the stop word list in the stopwords file
#
# ---------------------------------------------------------------------------------------------
! sub load_stop_words
{
my ($self) = @_;
--- 35,42 ----
# ---------------------------------------------------------------------------------------------
#
! # load_stopwords, save_stopwords - load and save the stop word list in the stopwords file
#
# ---------------------------------------------------------------------------------------------
! sub load_stopwords
{
my ($self) = @_;
***************
*** 53,57 ****
}
! sub save_stop_words
{
my ($self) = @_;
--- 53,57 ----
}
! sub save_stopwords
{
my ($self) = @_;
***************
*** 136,140 ****
if ( $stopword ne '' ) {
$self->{stop__}{$stopword} = 1;
! $self->save_stop_words();
return 1;
--- 136,140 ----
if ( $stopword ne '' ) {
$self->{stop__}{$stopword} = 1;
! $self->save_stopwords();
return 1;
***************
*** 152,156 ****
if ( $stopword ne '' ) {
delete $self->{stop__}{$stopword};
! $self->save_stop_words();
return 1;
--- 152,156 ----
if ( $stopword ne '' ) {
delete $self->{stop__}{$stopword};
! $self->save_stopwords();
return 1;
|
