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

[dougm]

dougm       01/03/25 11:04:56

  Modified:    src/modules/perl modperl_mgv.c
  Log:
  prevent core dump if HvARRAY is NULL
  
  Revision  Changes    Path
  1.9       +3 -0      modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_mgv.c     2001/03/17 06:03:37     1.8
  +++ modperl_mgv.c     2001/03/25 19:04:56     1.9
  @@ -30,6 +30,9 @@
       register HE *entry;
   
       xhv = (XPVHV *)SvANY(hv);
  +    if (!xhv->xhv_array) {
  +        return 0;
  +    }
       entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
   
       for (; entry; entry = HeNEXT(entry)) {