[popfile-commit] engine/Classifier Bayes.pm,1.133,1.134

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv26881

Modified Files:
	Bayes.pm 
Log Message:
fix warnings in new wordlist display due to array index boundary error

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.133
retrieving revision 1.134
diff -C2 -d -r1.133 -r1.134
*** Bayes.pm	20 Apr 2003 23:34:06 -0000	1.133
--- Bayes.pm	21 Apr 2003 08:56:51 -0000	1.134
***************
*** 683,687 ****
          $self->{scores__} .= "<tr>\n<th scope=\"col\">$language{Word}</th><th>&nbsp;</th><th scope=\"col\">$language{Count}</th><th>&nbsp;</th>\n";
  
!         foreach my $ix (0..(@buckets > 7? 7: @buckets)) {
              my $bucket = $ranking[$ix];
              my $bucketcolor  = $self->get_bucket_color( $bucket );
--- 683,687 ----
          $self->{scores__} .= "<tr>\n<th scope=\"col\">$language{Word}</th><th>&nbsp;</th><th scope=\"col\">$language{Count}</th><th>&nbsp;</th>\n";
  
!         foreach my $ix (0..($#buckets > 7? 7: $#buckets)) {
              my $bucket = $ranking[$ix];
              my $bucketcolor  = $self->get_bucket_color( $bucket );
***************
*** 711,715 ****
                  my $base_probability = $self->get_value_( $ranking[0], $word );
  
!                 foreach my $ix (0..(@buckets > 7? 7: @buckets)) {
                      my $bucket = $ranking[$ix];
                      my $probability  = get_value_( $self, $bucket, $word );
--- 711,715 ----
                  my $base_probability = $self->get_value_( $ranking[0], $word );
  
!                 foreach my $ix (0..($#buckets > 7? 7: $#buckets)) {
                      my $bucket = $ranking[$ix];
                      my $probability  = get_value_( $self, $bucket, $word );