Blame mod_perl-short-name.patch
|
Jan Kaluza |
e18c20f |
diff --git a/src/modules/perl/modperl_config.c b/src/modules/perl/modperl_config.c
|
|
Jan Kaluza |
e18c20f |
index c4ef81f..4ec135c 100644
|
|
Jan Kaluza |
e18c20f |
--- a/src/modules/perl/modperl_config.c
|
|
Jan Kaluza |
e18c20f |
+++ b/src/modules/perl/modperl_config.c
|
|
Jan Kaluza |
e18c20f |
@@ -186,7 +186,7 @@ modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p, server_rec *s)
|
|
Jan Kaluza |
e18c20f |
|
|
Jan Kaluza |
e18c20f |
/* make sure httpd's argv[0] is the first argument so $0 is
|
|
Jan Kaluza |
e18c20f |
* correctly connected to the real thing */
|
|
Jan Kaluza |
e18c20f |
- modperl_config_srv_argv_push(s->process->argv[0]);
|
|
Jan Kaluza |
e18c20f |
+ modperl_config_srv_argv_push(s->process->short_name);
|
|
Jan Kaluza |
e18c20f |
|
|
Jan Kaluza |
e18c20f |
MP_TRACE_d(MP_FUNC, "new scfg: 0x%lx", (unsigned long)scfg);
|
|
Jan Kaluza |
e18c20f |
|