perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_perl.c modperl_perl.h
Date Sat, 15 Sep 2001 22:25:29 GMT
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 */
  
  
  

Mime
View raw message