From d23ec0b35fd2c09ba07ca66b19d8fb4f5bb11c44 Mon Sep 17 00:00:00 2001 From: Jan Kaluza Date: Mon, 4 Jun 2012 13:17:03 +0200 Subject: [PATCH 16/28] remote_ip renamed to client_ip --- src/modules/perl/modperl_interp.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/modules/perl/modperl_interp.c b/src/modules/perl/modperl_interp.c index dfff32e..6ec9b56 100644 --- a/src/modules/perl/modperl_interp.c +++ b/src/modules/perl/modperl_interp.c @@ -496,11 +496,19 @@ modperl_interp_t *modperl_interp_select(request_rec *r, conn_rec *c, set_interp(p); +#if AP_SERVER_MAJORVERSION_NUMBER >= 2 && AP_SERVER_MINORVERSION_NUMBER >= 4 + 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 */ -- 1.7.11.4