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> ) {
|
