[popfile-commit] engine/Classifier Bayes.pm,1.180,1.181

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

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

Modified Files:
	Bayes.pm 
Log Message:
fix last checkin

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.180
retrieving revision 1.181
diff -C2 -d -r1.180 -r1.181
*** Bayes.pm	20 Aug 2003 06:11:07 -0000	1.180
--- Bayes.pm	20 Aug 2003 06:12:15 -0000	1.181
***************
*** 1724,1728 ****
      my ( $self, $mail, $client, $file, $before ) = @_;
  
!     my $isopen = (open FILE, "$file" if ( defined( $file ) ));
  
      while ( <$mail> ) {
--- 1724,1728 ----
      my ( $self, $mail, $client, $file, $before ) = @_;
  
!     my $isopen = open FILE, "$file" if ( defined( $file ) );
  
      while ( <$mail> ) {