Author: torsten
Date: Wed Apr 6 11:54:53 2011
New Revision: 1089414
URL: http://svn.apache.org/viewvc?rev=1089414&view=rev
Log:
fixed a wrong content-length header in t/filter/TestFilter/out_str_reverse.pm
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/t/filter/TestFilter/out_str_reverse.pm
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?rev=1089414&r1=1089413&r2=1089414&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Wed Apr 6 11:54:53 2011
@@ -12,6 +12,12 @@ Also refer to the Apache::Test changes l
=item 2.0.6-dev
+Fixed a few issues that came up with LWP 6.00:
+- t/response/TestAPI/request_rec.pm assumes HTTP/1.0 but LWP 6 uses 1.1
+- t/api/err_headers_out.t fails due to a bug somewhere in LWP 6
+- t/filter/TestFilter/out_str_reverse.pm sends the wrong content-length header
+[Torsten Foertsch]
+
Bugfix: Apache2::ServerUtil::get_server{description,banner,version} cannot
be declared as perl constants or they won't reflect added version components
if Apache2::ServerUtil is loaded before the PostConfig phase. Now, they
Modified: perl/modperl/trunk/t/filter/TestFilter/out_str_reverse.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/t/filter/TestFilter/out_str_reverse.pm?rev=1089414&r1=1089413&r2=1089414&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/out_str_reverse.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/out_str_reverse.pm Wed Apr 6
11:54:53 2011
@@ -16,12 +16,21 @@ use TestCommon::Utils ();
use Apache2::Const -compile => qw(OK M_POST);
use constant BUFF_LEN => 2;
+use constant signature => "Reversed by mod_perl 2.0\n";
sub handler {
my $f = shift;
#warn "called\n";
my $leftover = $f->ctx;
+
+ # We are about to change the length of the response body. Hence, we
+ # have to adjust the content-length header.
+ unless (defined $leftover) { # 1st invocation
+ $f->r->headers_out->{'Content-Length'}+=length signature
+ if exists $f->r->headers_out->{'Content-Length'};
+ }
+
while ($f->read(my $buffer, BUFF_LEN)) {
#warn "buffer: [$buffer]\n";
$buffer = $leftover . $buffer if defined $leftover;
@@ -34,7 +43,7 @@ sub handler {
if ($f->seen_eos) {
$f->print(scalar reverse $leftover) if defined $leftover;
- $f->print("Reversed by mod_perl 2.0\n");
+ $f->print(signature);
}
else {
$f->ctx($leftover) if defined $leftover;
