Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv17834/Classifier
Modified Files:
Bayes.pm
Log Message:
Give the unclassified 'bucket' the color black so that we don't get a warning from Perl about an undefined value
Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -C2 -d -r1.98 -r1.99
*** Bayes.pm 19 Feb 2003 19:49:41 -0000 1.98
--- Bayes.pm 19 Feb 2003 19:51:42 -0000 1.99
***************
*** 373,376 ****
--- 373,381 ----
update_constants($self);
+ # unclassified will always have the color black, note that unclassified is not
+ # actually a bucket
+
+ $self->{colors}{unclassified} = 'black';
+
print "Corpus loaded with $self->{full_total} entries\n" if $self->{debug};
}
|
