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
 }