stas 2004/07/15 12:31:54
Modified: t/conf modperl_extra.pl
xs/Apache/ServerUtil Apache__ServerUtil.h
xs/maps apache_functions.map
. Changes
Log:
Apache::RequestUtil::add_version_component($s->process->pconf, 'BAR/0.1');
is now $s->add_version_component('BAR/0.1').
Revision Changes Path
1.56 +12 -0 modperl-2.0/t/conf/modperl_extra.pl
Index: modperl_extra.pl
===================================================================
RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -u -r1.55 -r1.56
--- modperl_extra.pl 14 Jul 2004 19:19:39 -0000 1.55
+++ modperl_extra.pl 15 Jul 2004 19:31:54 -0000 1.56
@@ -109,6 +109,18 @@
}
}
+{
+ # test add_version_component
+ Apache->server->push_handlers(
+ PerlPostConfigHandler => \&add_my_version);
+
+ sub add_my_version {
+ my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ $s->add_version_component("world domination series/2.0");
+ return Apache::OK;
+ }
+}
+
# this is needed for TestModperl::ithreads
# one should be able to boot ithreads at the server startup and then
# access the ithreads setup at run-time when a perl interpreter is
1.21 +3 -0 modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h
Index: Apache__ServerUtil.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -u -r1.20 -r1.21
--- Apache__ServerUtil.h 14 Jul 2004 07:27:00 -0000 1.20
+++ Apache__ServerUtil.h 15 Jul 2004 19:31:54 -0000 1.21
@@ -16,6 +16,9 @@
#define mpxs_Apache__ServerRec_method_register(s, methname) \
ap_method_register(s->process->pconf, methname);
+#define mpxs_Apache__ServerRec_add_version_component(s, component) \
+ ap_add_version_component(s->process->pconf, component);
+
static MP_INLINE
int mpxs_Apache__ServerRec_push_handlers(pTHX_ server_rec *s,
const char *name,
1.87 +3 -2 modperl-2.0/xs/maps/apache_functions.map
Index: apache_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apache_functions.map,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -u -r1.86 -r1.87
--- apache_functions.map 14 Jul 2004 07:27:00 -0000 1.86
+++ apache_functions.map 15 Jul 2004 19:31:54 -0000 1.87
@@ -38,7 +38,6 @@
MODULE=Apache::RequestUtil
ap_get_status_line
-
MODULE=Apache::RequestUtil PACKAGE=guess
>ap_finalize_request_protocol
ap_default_type
@@ -159,9 +158,11 @@
MODULE=Apache::ServerUtil PACKAGE=Apache::ServerRec BOOT=1
~ap_method_register
int:DEFINE_method_register | | server_rec *:s, const char *:methname
+~add_version_component
+ void:DEFINE_add_version_component | | server_rec *:s, const char *:component
+
MODULE=Apache::ServerUtil PACKAGE=guess
- ap_add_version_component
ap_error_log2stderr
?ap_replace_stderr_log
1.414 +3 -1 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.413
retrieving revision 1.414
diff -u -u -r1.413 -r1.414
--- Changes 15 Jul 2004 06:23:21 -0000 1.413
+++ Changes 15 Jul 2004 19:31:54 -0000 1.414
@@ -21,7 +21,9 @@
weren't aborting at the Makefile.PL stage [Stas]
Apache::RequestUtil::method_register($s->process->pconf, 'FOO'); is
-now $s->method_register('FOO') [Stas]
+now $s->method_register('FOO').
+Apache::RequestUtil::add_version_component($s->process->pconf, 'BAR/0.1');
+is now $s->add_version_component('BAR/0.1'). [Stas]
Remove $Apache::Server::StrictPerlSections. Now, all <Perl>
sections errors are fatal by default and cause server startup to
