[popfile-commit] engine/Classifier Bayes.pm,1.327.4.15,1.327.4.16

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

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

Modified Files:
      Tag: b0_22_2
	Bayes.pm 
Log Message:
make sure the null-byte gets logged when we find one in db_quote()

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.327.4.15
retrieving revision 1.327.4.16
diff -C2 -d -r1.327.4.15 -r1.327.4.16
*** Bayes.pm	5 Mar 2008 07:46:28 -0000	1.327.4.15
--- Bayes.pm	6 Mar 2008 08:52:46 -0000	1.327.4.16
***************
*** 3953,3959 ****
      my $string = shift;
  
      if ( $string =~ s/\x00//g ) {
          my ( $package, $file, $line ) = caller;
!         $self->log_( 0, "Found null-byte in string $string. Called from package '$package' ($file), line $line." );
      }
  
--- 3953,3960 ----
      my $string = shift;
  
+     my $backup = $string;
      if ( $string =~ s/\x00//g ) {
          my ( $package, $file, $line ) = caller;
!         $self->log_( 0, "Found null-byte in string '$backup'. Called from package '$package' ($file), line $line." );
      }