[popfile-commit] engine bayes.pl,1.19,1.20

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

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

Modified Files:
	bayes.pl 
Log Message:
Finally, and totally by chance, discovered the reason why some users sometimes report that a message has the right classification but the wrong XTC or subject modification. Fixed.

Index: bayes.pl
===================================================================
RCS file: /cvsroot/popfile/engine/bayes.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** bayes.pl	9 Jul 2003 18:18:09 -0000	1.19
--- bayes.pl	9 Jul 2003 21:53:19 -0000	1.20
***************
*** 16,21 ****
  # main
  
! if ( $#ARGV == 0 ) 
! {
      my $c = new POPFile::Configuration;
      my $mq = new POPFile::MQ;
--- 16,20 ----
  # main
  
! if ( $#ARGV == 0 ) {
      my $c = new POPFile::Configuration;
      my $mq = new POPFile::MQ;
***************
*** 48,57 ****
  
      my @files   = glob $ARGV[0];
!     foreach my $file (@files)
!     {
          print "$file is '" . $b->classify($file) . "'\n";
      }
  
!     foreach my $word (keys %{$b->{parser__}->{words__}}) {
          print "$word $b->{parser__}->{words__}{$word}\n";
      }
--- 47,55 ----
  
      my @files   = glob $ARGV[0];
!     foreach my $file (@files) {
          print "$file is '" . $b->classify($file) . "'\n";
      }
  
!     foreach my $word (sort keys %{$b->{parser__}->{words__}}) {
          print "$word $b->{parser__}->{words__}{$word}\n";
      }