Index: src/modules/perl/perl_util.c
===================================================================
--- src/modules/perl/perl_util.c (revision 1425631)
+++ src/modules/perl/perl_util.c (working copy)
@@ -670,6 +670,7 @@
if(set_ids++) return;
sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid());
#ifndef WIN32
+#if (PERL_REVISION == 5) && (PERL_VERSION <= 15)
uid = (int)getuid();
euid = (int)geteuid();
gid = (int)getgid();
@@ -678,6 +679,7 @@
"perl_init_ids: uid=%d, euid=%d, gid=%d, egid=%d\n",
uid, euid, gid, egid));
#endif
+#endif
}
int perl_eval_ok(server_rec *s)
