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