diff options
Diffstat (limited to 'testing/apache2-mod-perl/mod_perl-2.0.10-inject_header_line_terminators.patch')
| -rw-r--r-- | testing/apache2-mod-perl/mod_perl-2.0.10-inject_header_line_terminators.patch | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/testing/apache2-mod-perl/mod_perl-2.0.10-inject_header_line_terminators.patch b/testing/apache2-mod-perl/mod_perl-2.0.10-inject_header_line_terminators.patch new file mode 100644 index 0000000000..daaab51dcb --- /dev/null +++ b/testing/apache2-mod-perl/mod_perl-2.0.10-inject_header_line_terminators.patch @@ -0,0 +1,45 @@ +From d59229cf4f5b91ed58e25e27977e76f59096b72d Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Sat, 24 Dec 2016 23:07:28 +0200 +Subject: [PATCH 2/2] Fix in_bbs_inject_header line terminators for Apache + 2.4.24 compatibility + +rfc7230 3.5 says: + + Although the line terminator for the start-line and header fields is + the sequence CRLF, a recipient MAY recognize a single LF as a line + terminator and ignore any preceding CR. + +Apache with strict enabled chooses not to implement the MAY. + +Author: Stefan Fritsch <sf@sfritsch.de> +Bug-Debian: https://bugs.debian.org/849082 +--- + t/filter/TestFilter/in_bbs_inject_header.pm | 4 ++-- + 1 file changed, 2 insertions(+), 2 deletions(-) + +diff --git a/t/filter/TestFilter/in_bbs_inject_header.pm b/t/filter/TestFilter/in_bbs_inject_header.pm +index b09d6f9..5380c65 100644 +--- a/t/filter/TestFilter/in_bbs_inject_header.pm ++++ b/t/filter/TestFilter/in_bbs_inject_header.pm +@@ -181,7 +181,7 @@ sub handler : FilterConnectionHandler { + + if ($data and $data =~ /^POST/) { + # demonstrate how to add a header while processing other headers +- my $header = "$header1_key: $header1_val\n"; ++ my $header = "$header1_key: $header1_val\r\n"; + push @{ $ctx->{buckets} }, APR::Bucket->new($c->bucket_alloc, $header); + debug "queued header [$header]"; + } +@@ -199,7 +199,7 @@ sub handler : FilterConnectionHandler { + # we hit the headers and body separator, which is a good + # time to add extra headers: + for my $key (keys %headers) { +- my $header = "$key: $headers{$key}\n"; ++ my $header = "$key: $headers{$key}\r\n"; + push @{ $ctx->{buckets} }, APR::Bucket->new($c->bucket_alloc, $header); + debug "queued header [$header]"; + } +-- +2.11.0 + |