Item2549: respect REDIRECT_STATUS only if it is not 2xx. Thanks MarcS…

…CHAEFER. git-svn-id: http://svn.foswiki.org/trunk/ModPerlEngineContrib@5921 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Jan 3, 2010 · 8ad3c2b · 8ad3c2b
1 parent f706065
commit 8ad3c2b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ModPerlEngineContrib/lib/Foswiki/Engine/Apache.pm b/ModPerlEngineContrib/lib/Foswiki/Engine/Apache.pm
@@ -210,10 +210,10 @@ sub finalizeHeaders {
     my ( $this, $res, $req ) = @_;
     $this->SUPER::finalizeHeaders( $res, $req );
 
-    # If REDIRECT_STATUS is present, preserve it. See Foswikitask:Item2549
+    # If REDIRECT_STATUS is useful, preserve it. See Foswikitask:Item2549
     # and http://httpd.apache.org/docs/2.2/en/custom-error.html#custom
     my $status;
-    if (defined $ENV{REDIRECT_STATUS}) {
+    if (defined $ENV{REDIRECT_STATUS} && $ENV{REDIRECT_STATUS} !~ /^2/o) {
         $status = $ENV{REDIRECT_STATUS};
     }
     elsif (defined $res->status && $res->status =~ /^\s*(\d{3})/o) {