Line # Revision Author
1 495 ahitrov --- src/modules/perl/perl_util.c.orig 2015-05-20 20:20:25.485726516 +0300
2 +++ src/modules/perl/perl_util.c 2015-05-20 20:21:19.482725094 +0300
3 @@ -669,6 +669,8 @@
4 {
5 if(set_ids++) return;
6 sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid());
7 +
8 +#if PERLV >= 501600
9 #ifndef WIN32
10 uid = (int)getuid();
11 euid = (int)geteuid();
12 @@ -678,6 +680,7 @@
13 "perl_init_ids: uid=%d, euid=%d, gid=%d, egid=%d\n",
14 uid, euid, gid, egid));
15 #endif
16 +#endif
17 }
18
19 int perl_eval_ok(server_rec *s)