Apply patch from RT 79977 to fix breakage caused by removal of PL_uid et al from perl 5.16.0.
Not tested by committer (running on Windows, where the code is unused anyway), but the same thing has already been done for trunk (mod_perl 2) in revision 1344224.
git-svn-id: https://svn.apache.org/repos/asf/perl/modperl/branches/1.x@1455469 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/Changes b/Changes
index 2cf4af8..1db2875 100644
--- a/Changes
+++ b/Changes
@@ -10,6 +10,10 @@
=item 1.32-dev
+Fix breakage caused by removal of PL_uid et al from perl 5.16.0. Patch from
+RT 79977.
+[Andreas Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>]
+
Post RT 64999 typo spot in CvGV macro
[Salvador Ortiz Garcia <sog@msg.com.mx>]
diff --git a/src/modules/perl/perl_util.c b/src/modules/perl/perl_util.c
index 4b2e665..1903f2d 100644
--- a/src/modules/perl/perl_util.c
+++ b/src/modules/perl/perl_util.c
@@ -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)
