[popfile-commit] engine/Classifier Bayes.pm,1.95,1.96

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

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

Modified Files:
	Bayes.pm 
Log Message:
Fix bug 684967 by ensuring that all socket communication is done in binmode and that file writes use \n so that we are strict in using CRLF on the network and flexible in using CR or LF as appropriate file local files depending on the platform POPFile is running on.  If we use \n for files that are not binmode then Perl takes care of the appropriate translation; on the other hand we do not want Perl taking care of translation on the network and you use $eol and binmode together

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.95
retrieving revision 1.96
diff -C2 -d -r1.95 -r1.96
*** Bayes.pm	14 Feb 2003 16:10:16 -0000	1.95
--- Bayes.pm	18 Feb 2003 14:46:31 -0000	1.96
***************
*** 895,901 ****
          open CLASS, ">$class_file";
          if ( $self->{magnet_used} == 0 )  {
!             print CLASS "$classification$eol";
          } else {
!             print CLASS "$classification MAGNET $self->{magnet_detail}$eol";
          }
          close CLASS;
--- 895,901 ----
          open CLASS, ">$class_file";
          if ( $self->{magnet_used} == 0 )  {
!             print CLASS "$classification\n";
          } else {
!             print CLASS "$classification MAGNET $self->{magnet_detail}\n";
          }
          close CLASS;