dougm 01/03/14 17:26:18
Modified: src/modules/perl modperl_mgv.c modperl_perl_includes.h
Log:
fixes to compile with non-ithreads 5.6.0 Perl
Revision Changes Path
1.2 +3 -1 modperl-2.0/src/modules/perl/modperl_mgv.c
Index: modperl_mgv.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- modperl_mgv.c 2001/03/09 23:42:04 1.1
+++ modperl_mgv.c 2001/03/15 01:26:18 1.2
@@ -205,7 +205,7 @@
else {
if ((cv = get_cv(name, FALSE))) {
handler->mgv_cv =
- modperl_mgv_compile(aTHX, p, HvNAME(GvSTASH(CvGV(cv))));
+ modperl_mgv_compile(aTHX_ p, HvNAME(GvSTASH(CvGV(cv))));
modperl_mgv_append(aTHX_ p, handler->mgv_cv, GvNAME(CvGV(cv)));
MpHandlerPARSED_On(handler);
return 1;
@@ -312,8 +312,10 @@
static int modperl_dw_hash_handlers(apr_pool_t *p, server_rec *s,
void *cfg, char *d, void *data)
{
+#ifdef USE_ITHREADS
MP_dSCFG(s);
MP_dSCFG_dTHX;
+#endif
int i;
modperl_dir_config_t *dir_cfg = (modperl_dir_config_t *)cfg;
1.4 +4 -0 modperl-2.0/src/modules/perl/modperl_perl_includes.h
Index: modperl_perl_includes.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_includes.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- modperl_perl_includes.h 2001/01/21 18:19:56 1.3
+++ modperl_perl_includes.h 2001/03/15 01:26:18 1.4
@@ -39,4 +39,8 @@
#undef dNOOP
#define dNOOP extern int __attribute__ ((unused)) Perl___notused
+#ifndef G_METHOD
+# define G_METHOD 64
+#endif
+
#endif /* MODPERL_PERL_INCLUDES_H */
