1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
$NetBSD: patch-src_modules_perl_perl__util.c,v 1.3 2012/10/15 13:14:26 wiz Exp $
Remove uid code; similar to changes done to mod_perl-2.x, see
https://rt.cpan.org/Public/Bug/Display.html?id=77129
--- src/modules/perl/perl_util.c.orig 2007-12-03 07:19:59.000000000 +0000
+++ src/modules/perl/perl_util.c
@@ -669,15 +669,6 @@ void mod_perl_init_ids(void) /* $$, $>,
{
if(set_ids++) return;
sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid());
-#ifndef WIN32
- uid = (int)getuid();
- euid = (int)geteuid();
- gid = (int)getgid();
- egid = (int)getegid();
- MP_TRACE_g(fprintf(stderr,
- "perl_init_ids: uid=%d, euid=%d, gid=%d, egid=%d\n",
- uid, euid, gid, egid));
-#endif
}
int perl_eval_ok(server_rec *s)
|
