dougm 01/10/21 20:41:38 Modified: src/modules/perl modperl_const.h xs/APR/Const Const.xs xs/Apache/Const Const.xs xs/ModPerl/Const Const.xs Log: tweak {ModPerl,APR,Apache}::Const so XS_modperl_const_compile is not directly referenced outside ModPerl/Const.so Revision Changes Path 1.2 +5 -0 modperl-2.0/src/modules/perl/modperl_const.h Index: modperl_const.h =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_const.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- modperl_const.h 2001/04/11 22:48:29 1.1 +++ modperl_const.h 2001/10/22 03:41:37 1.2 @@ -9,4 +9,9 @@ XS(XS_modperl_const_compile); +#define MP_newModPerlConstXS(name) \ + newXS(name "::Const::compile", \ + CvXSUB(get_cv("ModPerl::Const::compile", TRUE)), \ + __FILE__) + #endif /* MODPERL_CONST_H */ 1.3 +2 -1 modperl-2.0/xs/APR/Const/Const.xs Index: Const.xs =================================================================== RCS file: /home/cvs/modperl-2.0/xs/APR/Const/Const.xs,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- Const.xs 2001/06/17 03:39:19 1.2 +++ Const.xs 2001/10/22 03:41:37 1.3 @@ -6,4 +6,5 @@ PROTOTYPES: disable BOOT: - newXS("APR::Const::compile", XS_modperl_const_compile, __FILE__); + MP_newModPerlConstXS("APR"); + 1.4 +1 -1 modperl-2.0/xs/Apache/Const/Const.xs Index: Const.xs =================================================================== RCS file: /home/cvs/modperl-2.0/xs/Apache/Const/Const.xs,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- Const.xs 2001/06/16 19:14:09 1.3 +++ Const.xs 2001/10/22 03:41:37 1.4 @@ -6,4 +6,4 @@ PROTOTYPES: disable BOOT: - newXS("Apache::Const::compile", XS_modperl_const_compile, __FILE__); + MP_newModPerlConstXS("Apache"); 1.4 +8 -0 modperl-2.0/xs/ModPerl/Const/Const.xs Index: Const.xs =================================================================== RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Const/Const.xs,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- Const.xs 2001/06/16 19:14:08 1.3 +++ Const.xs 2001/10/22 03:41:38 1.4 @@ -1,6 +1,14 @@ #include "mod_perl.h" +#include "modperl_const.h" MODULE = ModPerl::Const PACKAGE = ModPerl::Const PROTOTYPES: disable + +BOOT: +#XXX: +#currently used just for {APR,Apache}/Const.{so,dll} to lookup +#XS_modperl_const_compile +#linking is fun. +newXS("ModPerl::Const::compile", XS_modperl_const_compile, __FILE__);