popfile-commit

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22687/Classifier

Modified Files:
      Tag: b0_22_2
	Bayes.pm 
Log Message:
Avoid a warning message.

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.327.4.11
retrieving revision 1.327.4.12
diff -C2 -d -r1.327.4.11 -r1.327.4.12
*** Bayes.pm	4 Mar 2008 12:53:42 -0000	1.327.4.11
--- Bayes.pm	4 Mar 2008 13:23:14 -0000	1.327.4.12
***************
*** 3307,3311 ****
  
      $self->validate_sql_prepare_and_execute( $self->{db_get_bucket_parameter__},
!         $self->{db_bucketid__}{$userid}{$bucket}{id}, $self->{db_parameterid__}{$parameter} );
      my $result = $self->{db_get_bucket_parameter__}->fetchrow_arrayref;
  
--- 3307,3312 ----
  
      $self->validate_sql_prepare_and_execute( $self->{db_get_bucket_parameter__},
!         $self->{db_bucketid__}{$userid}{$bucket}{id},
!         $self->{db_parameterid__}{$parameter} );
      my $result = $self->{db_get_bucket_parameter__}->fetchrow_arrayref;
  
***************
*** 4005,4013 ****
      my $string = shift;
  
!     my $backup = $string;
  
!     if ( my $count = ( $string =~ s/\x00//g ) ) {
!         my ( $package, $file, $line ) = caller( 1 );
!         $self->log_( 0, "Found $count null-character(s) in string '$backup'. Called from package '$package' ($file), line $line." );
      }
  
--- 4006,4016 ----
      my $string = shift;
  
!     if ( defined $string ) {
!         my $backup = $string;
  
!         if ( my $count = ( $string =~ s/\x00//g ) ) {
!             my ( $package, $file, $line ) = caller( 1 );
!             $self->log_( 0, "Found $count null-character(s) in string '$backup'. Called from package '$package' ($file), line $line." );
!         }
      }