develooper Front page | perl.qpsmtpd.dev | Postings from April 2008

[svn:qpsmtpd] r876 - trunk/lib/Qpsmtpd

From:
msergeant
Date:
April 15, 2008 05:10
Subject:
[svn:qpsmtpd] r876 - trunk/lib/Qpsmtpd
Author: msergeant
Date: Tue Apr 15 05:09:54 2008
New Revision: 876

Modified:
   trunk/lib/Qpsmtpd/PollServer.pm

Log:
Make sure we check for \r\n before we fixup the CRs


Modified: trunk/lib/Qpsmtpd/PollServer.pm
==============================================================================
--- trunk/lib/Qpsmtpd/PollServer.pm	(original)
+++ trunk/lib/Qpsmtpd/PollServer.pm	Tue Apr 15 05:09:54 2008
@@ -238,6 +238,7 @@
 
     # add a transaction->blocked check back here when we have line by line plugin access...
     unless (($self->{max_size} and $self->{data_size} > $self->{max_size})) {
+        $self->{prev_crlf} = $data =~ /\r\n\z/;
         $data =~ s/\r\n/\n/mg;
         $data =~ s/^\.\./\./mg;
         
@@ -274,7 +275,6 @@
 
         $self->transaction->body_write(\$data);
         $self->{data_size} += length $data;
-        $self->{prev_crlf} = $data =~ /\r\n\z/;
     }
  
 



Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About