Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 17825 invoked by uid 500); 13 Oct 2001 03:37:20 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 17814 invoked by uid 500); 13 Oct 2001 03:37:20 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 13 Oct 2001 03:32:31 -0000 Message-ID: <20011013033231.54293.qmail@icarus.apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/src/modules/perl modperl_util.c X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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)) {