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

[dougm]

dougm       01/10/13 12:02:03

  Modified:    src/modules/perl mod_perl.c modperl_perl_global.c
                        modperl_perl_global.h
  Log:
  calculate hash of MP_modglobal_keys keys at startup
  
  Revision  Changes    Path
  1.91      +1 -0      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.90
  retrieving revision 1.91
  diff -u -r1.90 -r1.91
  --- mod_perl.c        2001/10/11 04:47:30     1.90
  +++ mod_perl.c        2001/10/13 19:02:03     1.91
  @@ -332,6 +332,7 @@
       ap_add_version_component(pconf,
                                Perl_form(aTHX_ "Perl/v%vd", PL_patchlevel));
       modperl_mgv_hash_handlers(pconf, s);
  +    modperl_modglobal_hash_keys();
   #ifdef USE_ITHREADS
       modperl_init_clones(s, pconf);
   #endif
  
  
  
  1.11      +10 -0     modperl-2.0/src/modules/perl/modperl_perl_global.c
  
  Index: modperl_perl_global.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_global.c,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_perl_global.c     2001/10/13 18:55:03     1.10
  +++ modperl_perl_global.c     2001/10/13 19:02:03     1.11
  @@ -26,6 +26,16 @@
       { NULL },
   };
   
  +void modperl_modglobal_hash_keys(void)
  +{
  +    modperl_modglobal_key_t *gkey = MP_modglobal_keys;
  +
  +    while (gkey->name) {
  +        PERL_HASH(gkey->hash, gkey->val, gkey->len);
  +        gkey++;
  +    }
  +}
  +
   modperl_modglobal_key_t *modperl_modglobal_lookup(pTHX_ const char *name)
   {
       int i;
  
  
  
  1.9       +2 -0      modperl-2.0/src/modules/perl/modperl_perl_global.h
  
  Index: modperl_perl_global.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_global.h,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_perl_global.h     2001/10/13 18:55:03     1.8
  +++ modperl_perl_global.h     2001/10/13 19:02:03     1.9
  @@ -49,6 +49,8 @@
       modperl_perl_global_svpv_t rs;
   } modperl_perl_globals_t;
   
  +void modperl_modglobal_hash_keys(void);
  +
   modperl_modglobal_key_t *modperl_modglobal_lookup(pTHX_ const char *name);
   
   void modperl_perl_global_request_save(pTHX_ request_rec *r);