| Revision 495 (by ahitrov, 2015/05/21 14:15:14) |
Installation procedure workflow upgraded.
Perl up to version 5.16.0 is tested.
|
--- 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)