geoff 2004/01/19 08:45:48
Modified: t/response/TestAPI server_util.pm
xs/maps apache_functions.map
Log:
Apache::method_register() is now Apache::Server::method_register()
added method_register() test
Revision Changes Path
1.7 +6 -1 modperl-2.0/t/response/TestAPI/server_util.pm
Index: server_util.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- server_util.pm 14 Jan 2004 21:27:41 -0000 1.6
+++ server_util.pm 19 Jan 2004 16:45:47 -0000 1.7
@@ -46,7 +46,7 @@
);
plan $r, tests => (scalar keys %pools) +
- (scalar keys %objects) + 8;
+ (scalar keys %objects) + 9;
# syntax - an object or pool is required
t_debug("Apache::server_root_relative() died");
@@ -109,6 +109,11 @@
ok t_cmp($r->server_root_relative($dir),
$dir,
"\$r->server_root_relative($dir)");
+ }
+
+ {
+ t_debug('registering method FOO');
+ ok Apache::Server::method_register($r->server->process->pconf, 'FOO');
}
Apache::OK;
1.70 +3 -1 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.69
retrieving revision 1.70
diff -u -r1.69 -r1.70
--- apache_functions.map 19 Jan 2004 15:54:59 -0000 1.69
+++ apache_functions.map 19 Jan 2004 16:45:47 -0000 1.70
@@ -42,7 +42,6 @@
!ap_content_type_tolower
ap_get_status_line
ap_is_initial_req
- ap_method_register
>ap_method_registry_init
>ap_process_request_internal
?ap_get_mime_headers
@@ -168,6 +167,9 @@
ap_psignature | | r,prefix
~ap_server_root_relative
+PACKAGE=Apache::Server
+ ap_method_register
+
MODULE=Apache::Connection PACKAGE=guess
#XXX: thought this might be useful for protocol modules
#however it is not exported on win32
