You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2023/07/05 18:23:06 UTC
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ř <pp...@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");