[popfile-commit] engine/Classifier MailParse.pm,1.143,1.144

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

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) );