Author: jorton
Date: Fri Nov 16 09:28:51 2012
New Revision: 1410264
URL: http://svn.apache.org/viewvc?rev=1410264&view=rev
Log:
* src/modules/perl/modperl_interp.c (modperl_interp_select): Fix for httpd 2.4.
Submitted by: Jan Kaluza <jkaluza redhat.com>, jorton
Modified:
perl/modperl/trunk/src/modules/perl/modperl_interp.c
Modified: perl/modperl/trunk/src/modules/perl/modperl_interp.c
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_interp.c?rev=1410264&r1=1410263&r2=1410264&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_interp.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_interp.c Fri Nov 16 09:28:51
2012
@@ -496,11 +496,19 @@ modperl_interp_t *modperl_interp_select(
set_interp(p);
+#if AP_MODULE_MAGIC_AT_LEAST(20111130, 0)
+ MP_TRACE_i(MP_FUNC,
+ "set interp 0x%lx in %s 0x%lx (%s request for %s)\n",
+ (unsigned long)interp, desc, (unsigned long)p,
+ (r ? (is_subrequest ? "sub" : "main") : "conn"),
+ (r ? r->uri : c->client_ip));
+#else
MP_TRACE_i(MP_FUNC,
"set interp 0x%lx in %s 0x%lx (%s request for %s)\n",
(unsigned long)interp, desc, (unsigned long)p,
(r ? (is_subrequest ? "sub" : "main") : "conn"),
(r ? r->uri : c->remote_ip));
+#endif
}
/* set context (THX) for this thread */
