Apache::Status erroneously reports error

[Paul Flinders]

Setup: mod_perl-1.99_11, libapreq2-2.02, Apache 2.0.47, RedHat 9.

Running Apache::Status gives the attached output. There's no trace
of an error in the logs & I'm guessing that it's just an inappropriate
return code.
I _think_ this might be an appropriate patch?

--- Apache/Status.pm.orig    2003-11-13 22:56:50.000000000 +0000
+++ Apache/Status.pm    2003-12-16 13:11:40.000000000 +0000
@@ -19,6 +19,7 @@
$Apache::Status::VERSION = '3.00'; # mod_perl 2.0
use constant IS_WIN32 => ($^O eq "MSWin32");
+use Apache::Const -compile => qw(OK);
our $newQ;

@@ -135,7 +136,7 @@
    }
    $r->print("</body></html>");
-    1;
+    return Apache::OK;
}
sub header {

Title: Apache::Status



  Embedded Perl version v5.8.0 for Apache/2.0.47 (Fedora) process 16322,
  running since Tue Dec 16 12:02:22 2003

PerlRequire'd Files
Perl Configuration
Compiled Registry Scripts
Environment
ISA Tree
Symbol Table Dump
Loaded Modules
Inheritance Tree
Signal Handlers




OK
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator,
 [EMAIL PROTECTED] and inform them of the time the error occurred,
and anything you might have done that may have
caused the error.
More information about this error may be available
in the server error log.

Apache/2.0.47 (Fedora) Server at localhost Port 80

-- 
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html