mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-04 02:08:49 -04:00
24 lines
765 B
C
24 lines
765 B
C
$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)
|