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 */