Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv32198/Classifier
Modified Files:
MailParse.pm
Log Message:
Make my last check in clearer and work with the test suite
Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.143
retrieving revision 1.144
diff -C2 -d -r1.143 -r1.144
*** MailParse.pm 9 Jul 2003 21:53:19 -0000 1.143
--- MailParse.pm 9 Jul 2003 23:32:50 -0000 1.144
***************
*** 1080,1084 ****
while ( $read =~ s/(.*?)[\r\n]+// ) {
! my $line = $1;
next if ( !defined($line) );
--- 1080,1084 ----
while ( $read =~ s/(.*?)[\r\n]+// ) {
! my $line = "$1\r\n";
next if ( !defined($line) );
|
