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