[popfile-commit] engine/Classifier Bayes.pm,1.224,1.225

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

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

Modified Files:
	Bayes.pm 
Log Message:
Fix a couple tests in TestBayes that stops them from writing files outside the tests/ directory

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.224
retrieving revision 1.225
diff -C2 -d -r1.224 -r1.225
*** Bayes.pm	11 Nov 2003 04:33:43 -0000	1.224
--- Bayes.pm	12 Nov 2003 18:58:16 -0000	1.225
***************
*** 1286,1291 ****
  
      $filename =~ s/msg$/cls/;
  
!     open CLASS, '>' . $self->get_user_path_( $self->global_config_( 'msgdir' ) . $filename );
  
      if ( defined( $magnet ) && ( $magnet ne '' ) ) {
--- 1286,1292 ----
  
      $filename =~ s/msg$/cls/;
+     $filename =  $self->get_user_path_( $self->global_config_( 'msgdir' ) . $filename );
  
!     open CLASS, ">$filename";
  
      if ( defined( $magnet ) && ( $magnet ne '' ) ) {