popfile-commit

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

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

Modified Files:
      Tag: b0_22_2
	Bayes.pm 
Log Message:
copy-and-paste will kill me one fine day.

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.327.4.13
retrieving revision 1.327.4.14
diff -C2 -d -r1.327.4.13 -r1.327.4.14
*** Bayes.pm	5 Mar 2008 07:34:07 -0000	1.327.4.13
--- Bayes.pm	5 Mar 2008 07:39:44 -0000	1.327.4.14
***************
*** 3954,3958 ****
  
      if ( $string =~ s/\x00//g ) {
!         my ( $package, $file, $line ) = caller( 1 );
          $self->log( 0, "Found null-byte in string $string. Called from package '$package' ($file), line $line." );
      }
--- 3954,3958 ----
  
      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." );
      }