[popfile-commit] engine/Classifier Bayes.pm,1.104,1.105

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

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

Modified Files:
	Bayes.pm 
Log Message:
Add a little safety check on the color files because bonelifer had created empty color files which would cause a problem

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.104
retrieving revision 1.105
diff -C2 -d -r1.104 -r1.105
*** Bayes.pm	27 Feb 2003 00:40:12 -0000	1.104
--- Bayes.pm	27 Feb 2003 02:39:50 -0000	1.105
***************
*** 349,353 ****
          if ( open COLOR, "<$bucket/color" ) {
              $color = <COLOR>;
!             $color =~ s/[\r\n]//g;
              close COLOR;
          }
--- 349,365 ----
          if ( open COLOR, "<$bucket/color" ) {
              $color = <COLOR>;
!             
!             # Someone (who shall remain nameless) went in an manually created
!             # empty color files in their corpus directories which would cause
!             # $color at this point to be undefined and hence you'd get warnings
!             # about undefined variables below.  So this little test is to deal
!             # with that user and to make POPFile a little safer which is always
!             # a good thing
!             
!             if ( !defined( $color ) ) {
!                 $color = '';
!             } else {
!                 $color =~ s/[\r\n]//g;
!             }
              close COLOR;
          }