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

[dougm]

dougm   01/10/20 22:46:47

  Modified:src/modules/perl modperl_perl.c modperl_perl.h
  Log:
  static-ize a few functions
  
  Revision  ChangesPath
  1.6   +14 -13modperl-2.0/src/modules/perl/modperl_perl.c
  
  Index: modperl_perl.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_perl.c2001/10/09 00:13:00 1.5
  +++ modperl_perl.c2001/10/21 05:46:47 1.6
  @@ -30,7 +30,7 @@
   }
   }
   
  -void modperl_perl_ids_get(modperl_perl_ids_t *ids)
  +static void modperl_perl_ids_get(modperl_perl_ids_t *ids)
   {
   ids->pid  = (I32)getpid();
   #ifndef WIN32
  @@ -46,7 +46,7 @@
   #endif
   }
   
  -void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids)
  +static void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids)
   {
   sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), ids->pid);
   
  @@ -58,6 +58,18 @@
   #endif
   }
   
  +
  +#ifdef USE_ITHREADS
  +
  +static apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  +  void *data)
  +{
  +modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data);
  +return APR_SUCCESS;
  +}
  +
  +#endif /* USE_ITHREADS */
  +
   void modperl_perl_init_ids_server(server_rec *s)
   {
   modperl_perl_ids_t ids;
  @@ -70,14 +82,3 @@
   modperl_perl_init_ids(aTHX_ &ids);
   #endif
   }
  -
  -#ifdef USE_ITHREADS
  -
  -apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  -   void *data)
  -{
  -modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data);
  -return APR_SUCCESS;
  -}
  -
  -#endif /* USE_ITHREADS */
  
  
  
  1.6   +0 -11 modperl-2.0/src/modules/perl/modperl_perl.h
  
  Index: modperl_perl.h
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.h,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_perl.h2001/10/09 00:13:00 1.5
  +++ modperl_perl.h2001/10/21 05:46:47 1.6
  @@ -9,17 +9,6 @@
   
   void modperl_perl_core_global_init(pTHX);
   
  -void modperl_perl_ids_get(modperl_perl_ids_t *ids);
  -
  -void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids);
  -
   void modperl_perl_init_ids_server(server_rec *s);
  -
  -#ifdef USE_ITHREADS
  -
  -apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip,
  -   void *data);
  -
  -#endif /* USE_ITHREADS */
   
   #endif /* MODPERL_PERL_H */
  
  
  

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

[dougm]

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