svn commit: r123016 - /perl/modperl/trunk/src/modules/perl/modperl_cmd.c

[stas]

Author: stas
Date: Tue Dec 21 15:06:01 2004
New Revision: 123016

URL: http://svn.apache.org/viewcvs?view=rev&rev=123016
Log:
storing perl context doesn't require messing around with global perl 
context

Modified:
   perl/modperl/trunk/src/modules/perl/modperl_cmd.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_cmd.c
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_cmd.c?view=diff&rev=123016&p1=perl/modperl/trunk/src/modules/perl/modperl_cmd.c&r1=123015&p2=perl/modperl/trunk/src/modules/perl/modperl_cmd.c&r2=123016
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_cmd.c   (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_cmd.c   Tue Dec 21 15:06:01 2004
@@ -282,16 +282,13 @@
     apr_pool_t *p = parms->pool;
     apr_finfo_t finfo;
     MP_dSCFG(parms->server);
-    MP_PERL_DECLARE_CONTEXT;
 
     if (APR_SUCCESS == apr_stat(&finfo, arg, APR_FINFO_TYPE, p)) {
         if (finfo.filetype != APR_NOFILE) {
              modperl_require_file_t *require = apr_pcalloc(p, 
sizeof(*require));
 #ifdef USE_ITHREADS
             if (modperl_is_running()) {
-                MP_PERL_OVERRIDE_CONTEXT;
-                require->perl = aTHX;
-                MP_PERL_RESTORE_CONTEXT;   
+                require->perl = scfg->mip->parent->perl;
             }
 #endif
             require->file = arg;