[popfile-commit] engine/Classifier Bayes.pm,1.98,1.99

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

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};
  }