|
From: <jgr...@us...> - 2003-10-31 16:49:48
|
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 );
|