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/;
}