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

[dougm]

dougm       01/10/13 12:14:58

  Modified:    src/modules/perl modperl_env.c
  Log:
  use consistent style to iterate over MP_env_const_vars
  
  Revision  Changes    Path
  1.15      +3 -4      modperl-2.0/src/modules/perl/modperl_env.c
  
  Index: modperl_env.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_env.c,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -r1.14 -r1.15
  --- modperl_env.c     2001/10/13 19:12:17     1.14
  +++ modperl_env.c     2001/10/13 19:14:58     1.15
  @@ -63,17 +63,16 @@
   
   void modperl_env_default_populate(pTHX)
   {
  +    modperl_env_ent_t *ent = MP_env_const_vars;
       HV *hv = ENVHV;
       U32 mg_flags;
  -    int i;
   
       modperl_env_untie(mg_flags);
   
  -    for (i = 0; MP_env_const_vars[i].key; i++) {
  -        const modperl_env_ent_t *ent = &MP_env_const_vars[i];
  -
  +    while (ent->key) {
           hv_store(hv, ent->key, ent->klen,
                    newSVpvn(ent->val, ent->vlen), ent->hash);
  +        ent++;
       }
   
       modperl_env_tie(mg_flags);