You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by to...@apache.org on 2012/02/08 18:46:54 UTC
svn commit: r1242010 -
/perl/modperl/branches/threading/src/modules/perl/mod_perl.c
Author: torsten
Date: Wed Feb 8 17:46:54 2012
New Revision: 1242010
URL: http://svn.apache.org/viewvc?rev=1242010&view=rev
Log:
comment added
Modified:
perl/modperl/branches/threading/src/modules/perl/mod_perl.c
Modified: perl/modperl/branches/threading/src/modules/perl/mod_perl.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/src/modules/perl/mod_perl.c?rev=1242010&r1=1242009&r2=1242010&view=diff
==============================================================================
--- perl/modperl/branches/threading/src/modules/perl/mod_perl.c (original)
+++ perl/modperl/branches/threading/src/modules/perl/mod_perl.c Wed Feb 8 17:46:54 2012
@@ -740,6 +740,14 @@ static int modperl_hook_create_request(r
MP_dRCFG;
#ifdef USE_ITHREADS
+ /* XXX: this is necessary to make modperl_interp_pool_select() work
+ * which is used at runtime only to merge dir-configs by
+ * modperl_module_config_merge().
+ *
+ * Since most requests won't need it it would be good to add some logic
+ * (cheaper logic in terms of CPU cycles) to identify those cases and
+ * avoid the hash operation.
+ */
MP_TRACE_i(MP_FUNC, "setting userdata MODPERL_R in pool %#lx to %lx",
(unsigned long)r->pool, (unsigned long)r);
(void)apr_pool_userdata_set((void *)r, "MODPERL_R", NULL, r->pool);