Steve, Randy, can you please try with this patch. This is against the conf
file with:
<VirtualHost _default_:8542>
PerlOptions +Parent
<Perl>
1;
</Perl>
</Virtualhost>
Index: src/modules/perl/modperl_cmd.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
retrieving revision 1.52
diff -u -r1.52 modperl_cmd.c
--- src/modules/perl/modperl_cmd.c 19 Dec 2003 01:17:31 -0000 1.52
+++ src/modules/perl/modperl_cmd.c 21 Jan 2004 03:35:36 -0000
@@ -373,6 +373,7 @@
#ifdef USE_ITHREADS
MP_dSCFG(s);
pTHX;
+ PerlInterpreter *orig_perl;
#endif
if (!(arg && *arg)) {
@@ -388,7 +389,9 @@
#ifdef USE_ITHREADS
/* XXX: .htaccess support cannot use this perl with threaded MPMs */
+ orig_perl = PERL_GET_CONTEXT;
aTHX = scfg->mip->parent->perl;
+ PERL_SET_CONTEXT(aTHX);
#endif
/* data will be set by a <Perl> section */
@@ -479,6 +482,11 @@
}
}
+#ifdef USE_ITHREADS
+ /* restore the original perl context */
+ PERL_SET_CONTEXT(orig_perl);
+#endif
+
return NULL;
}
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
