Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 15537 invoked by uid 500); 15 Sep 2001 22:30:41 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 15526 invoked by uid 500); 15 Sep 2001 22:30:41 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 15 Sep 2001 22:25:29 -0000 Message-ID: <20010915222529.33177.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/src/modules/perl modperl_perl.c modperl_perl.h X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N dougm 01/09/15 15:25:29 Added: src/modules/perl modperl_perl.c modperl_perl.h Log: new module for small tweaks to the Perl runtime Revision Changes Path 1.1 modperl-2.0/src/modules/perl/modperl_perl.c Index: modperl_perl.c =================================================================== #include "mod_perl.h" /* this module contains mod_perl small tweaks to the Perl runtime * others (larger tweaks) are in their own modules, e.g. modperl_env.c */ void modperl_perl_init_ids(pTHX) { sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), (I32)getpid()); #ifndef WIN32 PL_uid = (int)getuid(); PL_euid = (int)geteuid(); PL_gid = (int)getgid(); PL_egid = (int)getegid(); MP_TRACE_g(MP_FUNC, "uid=%d, euid=%d, gid=%d, egid=%d\n", PL_uid, PL_euid, PL_gid, PL_egid); #endif } 1.1 modperl-2.0/src/modules/perl/modperl_perl.h Index: modperl_perl.h =================================================================== #ifndef MODPERL_PERL_H #define MODPERL_PERL_H void modperl_perl_init_ids(pTHX); #endif /* MODPERL_PERL_H */