dougm 02/05/22 21:35:16 Modified: src/modules/perl mod_perl.c mod_perl.h Log: fix fix to compile with ithreads Revision Changes Path 1.145 +2 -2 modperl/src/modules/perl/mod_perl.c Index: mod_perl.c =================================================================== RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v retrieving revision 1.144 retrieving revision 1.145 diff -u -r1.144 -r1.145 --- mod_perl.c 23 May 2002 04:03:46 -0000 1.144 +++ mod_perl.c 23 May 2002 04:35:16 -0000 1.145 @@ -578,9 +578,9 @@ perl_require_module("DynaLoader", NULL); } -static void mod_perl_xs_init(void) +static void mod_perl_xs_init(pTHX) { - xs_init(); + xs_init(aTHX); /* XXX: in 5.7.2+ we can call the body of mod_perl_boot here * but in 5.6.1 the Perl runtime is not properly setup yet 1.116 +2 -0 modperl/src/modules/perl/mod_perl.h Index: mod_perl.h =================================================================== RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.h,v retrieving revision 1.115 retrieving revision 1.116 diff -u -r1.115 -r1.116 --- mod_perl.h 23 May 2002 04:03:46 -0000 1.115 +++ mod_perl.h 23 May 2002 04:35:16 -0000 1.116 @@ -168,6 +168,8 @@ #ifndef PERL_IS_5_6 #define pTHX_ #define aTHXo_ +#define aTHX +#define pTHX #define CopFILEGV(cop) cop->cop_filegv #define CopLINE(cop) cop->cop_line #define CopLINE_set(c,l) (CopLINE(c) = (l))