stas 2004/07/15 13:36:29
Modified: . Changes lib/Apache compat.pm t/response/TestAPI server_util.pm t/response/TestCompat apache.pm xs/maps apache_functions.map Log: exists_config_define Moved namespace from Apache:: to Apache::ServerUtil:: (to make it easier to find the container of the function): Revision Changes Path 1.415 +4 -0 modperl-2.0/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl-2.0/Changes,v retrieving revision 1.414 retrieving revision 1.415 diff -u -u -r1.414 -r1.415 --- Changes 15 Jul 2004 19:31:54 -0000 1.414 +++ Changes 15 Jul 2004 20:36:28 -0000 1.415 @@ -12,6 +12,10 @@ =item 1.99_15-dev +Moved namespace from Apache:: to Apache::ServerUtil:: (to make it +easier to find the container of the function): [Stas] + - exists_config_define + fix an old outstanding bug in the APR::Table's TIE interface with each()/values() over tables with multi-values keys. Now the produced order is correct and consistent with keys(). Though, values() works 1.111 +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.110 retrieving revision 1.111 diff -u -u -r1.110 -r1.111 --- compat.pm 9 Jul 2004 08:01:20 -0000 1.110 +++ compat.pm 15 Jul 2004 20:36:29 -0000 1.111 @@ -298,7 +298,7 @@ sub define { shift if @_ == 2; - exists_config_define(@_); + Apache::ServerUtil::exists_config_define(@_); } sub log_error { 1.23 +3 -3 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.22 retrieving revision 1.23 diff -u -u -r1.22 -r1.23 --- server_util.pm 14 Jul 2004 07:27:00 -0000 1.22 +++ server_util.pm 15 Jul 2004 20:36:29 -0000 1.23 @@ -123,9 +123,9 @@ "\$r->server_root_relative($dir)"); } - t_debug('Apache::exists_config_define'); - ok Apache::exists_config_define('MODPERL2'); - ok ! Apache::exists_config_define('FOO'); + t_debug('Apache::ServerUtil::exists_config_define'); + ok Apache::ServerUtil::exists_config_define('MODPERL2'); + ok ! Apache::ServerUtil::exists_config_define('FOO'); t_debug('registering method FOO'); ok $r->server->method_register('FOO'); 1.15 +1 -1 modperl-2.0/t/response/TestCompat/apache.pm Index: apache.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestCompat/apache.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -u -r1.14 -r1.15 --- apache.pm 10 Jul 2004 00:37:06 -0000 1.14 +++ apache.pm 15 Jul 2004 20:36:29 -0000 1.15 @@ -32,7 +32,7 @@ ok t_cmp(Apache->define('MODPERL2'), - Apache::exists_config_define('MODPERL2'), + Apache::ServerUtil::exists_config_define('MODPERL2'), 'Apache->define'); ok t_cmp(Apache::current_callback(), 1.88 +2 -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.87 retrieving revision 1.88 diff -u -u -r1.87 -r1.88 --- apache_functions.map 15 Jul 2004 19:31:54 -0000 1.87 +++ apache_functions.map 15 Jul 2004 20:36:29 -0000 1.88 @@ -161,13 +161,14 @@ ~add_version_component void:DEFINE_add_version_component | | server_rec *:s, const char *:component +MODULE=Apache::ServerUtil PACKAGE=Apache::ServerUtil + ap_exists_config_define MODULE=Apache::ServerUtil PACKAGE=guess ap_error_log2stderr ?ap_replace_stderr_log #MODULE=Apache::ServerConfig - ap_exists_config_define #XXX: thought this might be useful #however it is not exported on win32 !ap_get_local_host