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 ge...@apache.org on 2004/01/19 19:25:14 UTC
cvs commit: modperl-2.0/lib/Apache Status.pm compat.pm
geoff 2004/01/19 10:25:14
Modified: lib/Apache Status.pm compat.pm
Log:
Apache::get_server_version() is now Apache::Server::get_server_version()
Revision Changes Path
1.18 +1 -1 modperl-2.0/lib/Apache/Status.pm
Index: Status.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- Status.pm 4 Dec 2003 14:38:53 -0000 1.17
+++ Status.pm 19 Jan 2004 18:25:14 -0000 1.18
@@ -148,7 +148,7 @@
sub header {
my $r = shift;
my $start = scalar localtime $^T;
- my $srv = Apache::get_server_version();
+ my $srv = Apache::Server::get_server_version();
$r->content_type("text/html");
my $v = $^V ? sprintf "v%vd", $^V : $];
$r->print(<<"EOF");
1.98 +1 -1 modperl-2.0/lib/Apache/compat.pm
Index: compat.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -r1.97 -r1.98
--- compat.pm 19 Jan 2004 15:15:07 -0000 1.97
+++ compat.pm 19 Jan 2004 18:25:14 -0000 1.98
@@ -322,7 +322,7 @@
#no need to support in 2.0
sub export {}
-sub SERVER_VERSION { Apache::get_server_version() }
+sub SERVER_VERSION { Apache::Server::get_server_version() }
package Apache::RequestRec;