Correct header parsing of "space only" lines (Joerg Meyer)

(issue #11 - http://code.google.com/p/smtpd/issues/detail?id=11 )


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@722 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2007-03-15 06:13:18 +00:00
parent 88d0125eae
commit e6ee4c486b
2 changed files with 3 additions and 1 deletions

View File

@ -1,5 +1,7 @@
0.33 (to be) 0.33 (to be)
Correct header parsing of "space only" lines (Joerg Meyer)
Update the sample configuration to use zen.spamhaus.org Update the sample configuration to use zen.spamhaus.org
Support "module" plugins ("My::Plugin" in the config/plugins file) Support "module" plugins ("My::Plugin" in the config/plugins file)

View File

@ -616,7 +616,7 @@ sub data_respond {
unless (($max_size and $size > $max_size)) { unless (($max_size and $size > $max_size)) {
s/\r\n$/\n/; s/\r\n$/\n/;
s/^\.\./\./; s/^\.\./\./;
if ($in_header and m/^\s*$/) { if ($in_header and m/^$/) {
$in_header = 0; $in_header = 0;
my @headers = split /^/m, $buffer; my @headers = split /^/m, $buffer;