--- src/modules/perl/perl_util.c.orig	2015-05-20 20:20:25.485726516 +0300
+++ src/modules/perl/perl_util.c	2015-05-20 20:21:19.482725094 +0300
@@ -669,6 +669,8 @@
 {
     if(set_ids++) return;
     sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid());
+
+#if PERLV >= 501600
 #ifndef WIN32
     uid  = (int)getuid(); 
     euid = (int)geteuid(); 
@@ -678,6 +680,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)