forked from pool/apache2-mod_perl
21 lines
539 B
Diff
21 lines
539 B
Diff
|
Index: src/modules/perl/modperl_perl.c
|
||
|
|
===================================================================
|
||
|
|
--- src/modules/perl/modperl_perl.c 2012-05-21 10:06:24.000000000 +0000
|
||
|
|
+++ src/modules/perl/modperl_perl.c 2012-05-21 10:08:56.000000000 +0000
|
||
|
|
@@ -101,6 +101,7 @@
|
||
|
|
{
|
||
|
|
sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), ids->pid);
|
||
|
|
|
||
|
|
+#if !MP_PERL_VERSION_AT_LEAST(5, 16, 0)
|
||
|
|
#ifndef WIN32
|
||
|
|
PL_uid = ids->uid;
|
||
|
|
PL_euid = ids->euid;
|
||
|
|
@@ -110,6 +111,7 @@
|
||
|
|
#ifdef MP_MAINTAIN_PPID
|
||
|
|
PL_ppid = ids->ppid;
|
||
|
|
#endif
|
||
|
|
+#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
|