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:
parent
88d0125eae
commit
e6ee4c486b
2
Changes
2
Changes
@ -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)
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user