You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/09/16 00:25:29 UTC

cvs commit: modperl-2.0/src/modules/perl modperl_perl.c modperl_perl.h

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 */