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

[dougm]

dougm       01/10/12 20:32:31

  Modified:    src/modules/perl modperl_util.c
  Log:
  calculate hash if not given in modperl_perl_hv_fetch_he()
  
  Revision  Changes    Path
  1.27      +4 -0      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -r1.26 -r1.27
  --- modperl_util.c    2001/10/13 03:22:15     1.26
  +++ modperl_util.c    2001/10/13 03:32:31     1.27
  @@ -416,6 +416,10 @@
           return 0;
       }
   
  +    if (!hash) {
  +     PERL_HASH(hash, key, klen);
  +    }
  +
       entry = ((HE**)xhv->xhv_array)[hash & (I32)xhv->xhv_max];
   
       for (; entry; entry = HeNEXT(entry)) {