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__);
