Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv11353/Classifier
Modified Files:
MailParse.pm
Log Message:
Someone left a debugging print statement in MailParse.pm... oops.
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -C2 -d -r1.146 -r1.147
*** MailParse.pm 18 Jul 2003 05:08:56 -0000 1.146
--- MailParse.pm 21 Jul 2003 18:49:52 -0000 1.147
***************
*** 1298,1302 ****
while ( $mystring =~ /=\?[\w-]+\?(B|Q)\?(.*?)\?=/ig ) {
if ($1 eq "B") {
- print $2;
$decode_it = decode_base64( $2 );
$mystring =~ s/=\?[\w-]+\?B\?(.*?)\?=/$decode_it/i;
--- 1298,1301 ----
|
