[popfile-commit] engine/Classifier MailParse.pm,1.173,1.174

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

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

Modified Files:
	MailParse.pm 
Log Message:
Fix some {debug} that should have been {debug__}; thanks Manni

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.173
retrieving revision 1.174
diff -C2 -d -r1.173 -r1.174
*** MailParse.pm	30 Oct 2003 14:40:22 -0000	1.173
--- MailParse.pm	31 Oct 2003 16:49:45 -0000	1.174
***************
*** 1040,1044 ****
      while ( $line =~ s/(<\/?(?!(?:$spacing_tags|$non_spacing_tags)\W)[a-z0-9]+(?:\s+.*?)?\/?>)//io ) {
          $self->update_pseudoword( 'html', 'invalidtag', $encoded, $1 );
!         print "html:invalidtag: $1\n" if $self->{debug};
      }
  
--- 1040,1044 ----
      while ( $line =~ s/(<\/?(?!(?:$spacing_tags|$non_spacing_tags)\W)[a-z0-9]+(?:\s+.*?)?\/?>)//io ) {
          $self->update_pseudoword( 'html', 'invalidtag', $encoded, $1 );
!         print "html:invalidtag: $1\n" if $self->{debug__};
      }
  
***************
*** 1050,1054 ****
      while ( $line =~s/(<($non_spacing_tags)(?:\s+[^>]*?)?><\/\2>)//io ) {
          $self->update_pseudoword( 'html', 'emptypair', $encoded, $1 );
!         print "html:emptypair: $1\n" if $self->{debug};
      }
  
--- 1050,1054 ----
      while ( $line =~s/(<($non_spacing_tags)(?:\s+[^>]*?)?><\/\2>)//io ) {
          $self->update_pseudoword( 'html', 'emptypair', $encoded, $1 );
!         print "html:emptypair: $1\n" if $self->{debug__};
      }
  
***************
*** 1747,1751 ****
  	
      if ( length( $filename ) > 0) {
!         print "Add filename $filename\n" if $self->{debug};
  
          my ( $name, $ext ) = $self->file_extension( $filename );
--- 1747,1751 ----
  	
      if ( length( $filename ) > 0) {
!         print "Add filename $filename\n" if $self->{debug__};
  
          my ( $name, $ext ) = $self->file_extension( $filename );