Author: pgollucci
Date: Thu Jun 1 21:16:17 2006
New Revision: 411028
URL: http://svn.apache.org/viewvc?rev=411028&view=rev
Log:
$r->status_line must be valid and match $r->status
or it is 'zapped' by httpd as of 2.2.1
Modified:
perl/modperl/trunk/t/api/status.t
perl/modperl/trunk/t/response/TestAPI/status.pm
Modified: perl/modperl/trunk/t/api/status.t
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/t/api/status.t?rev=411028&r1=411027&r2=411028&view=diff
==============================================================================
--- perl/modperl/trunk/t/api/status.t (original)
+++ perl/modperl/trunk/t/api/status.t Thu Jun 1 21:16:17 2006
@@ -29,6 +29,10 @@
# it also tries to set status (to a different value), but it
# should be ignored by Apache, since status_line is supposed to
# override status. the handler also sets a custom code message
+ # modules/http/http_filters.c r372958
+ # httpd 'zaps' the status_line if it doesn't match the status
+ # as of 2.2.1 (not released) so 2.2.2 (released)
+
my $code = 499; # not in HTTP/1.1
my $message = "FooBared";
my $res = GET "$location?$code=$message";
Modified: perl/modperl/trunk/t/response/TestAPI/status.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/t/response/TestAPI/status.pm?rev=411028&r1=411027&r2=411028&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestAPI/status.pm (original)
+++ perl/modperl/trunk/t/response/TestAPI/status.pm Thu Jun 1 21:16:17 2006
@@ -20,7 +20,9 @@
my ($code, $string) = split /=/, $r->args || '';
if ($string) {
- $r->status(200); # status_line should override status
+ # status_line must be valid and match status
+ # or it is 'zapped' by httpd as of 2.2.1
+ $r->status($code);
$r->status_line("$code $string");
}
else {
