Mailing List Archive

svn commit: r1910796 - /perl/modperl/trunk/lib/Apache2/Status.pm
Author: stevehay
Date: Wed Jul 5 18:23:06 2023
New Revision: 1910796

URL: http://svn.apache.org/viewvc?rev=1910796&view=rev
Log:
Do not use deprecated ap_get_server_version() in Server::Status

It produced warnings with httpd 2.4.

Patch by Petr Písa? <ppisar@redhat.com> from https://rt.cpan.org/Ticket/Display.html?id=124972

Modified:
perl/modperl/trunk/lib/Apache2/Status.pm

Modified: perl/modperl/trunk/lib/Apache2/Status.pm
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/lib/Apache2/Status.pm?rev=1910796&r1=1910795&r2=1910796&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Wed Jul 5 18:23:06 2023
@@ -142,7 +142,7 @@ sub handler {
sub header {
my $r = shift;
my $start = scalar localtime $^T;
- my $srv = Apache2::ServerUtil::get_server_version();
+ my $srv = Apache2::ServerUtil::get_server_banner();
$r->content_type("text/html");
my $v = $^V ? sprintf "v%vd", $^V : $];
$r->print(<<"EOF");