diff options
| author | Alex Vandiver <alexmv@mit.edu> | 2003-05-02 02:45:05 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-12 21:49:21 +0000 |
| commit | e27ad1f20b87bf08f3461d0be498f8d4da22a576 (patch) | |
| tree | c42d11b1dcf1a112af0ecb9f209acb0f8b67e145 /hv.c | |
| parent | f9738a7f833dee4b6953b05d93d3f222f78be370 (diff) | |
| download | perl-e27ad1f20b87bf08f3461d0be498f8d4da22a576.tar.gz | |
Re: Bug stomping fun. [PATCH: bug #1016]
Message-Id: <1051872303.26203.104.camel@supox>
(plus perldiag nit)
p4raw-id: //depot/perl@19505
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -279,6 +279,8 @@ S_hv_fetch_flags(pTHX_ HV *hv, const char *key, I32 klen, I32 lval, int flags) /* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */ entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max]; for (; entry; entry = HeNEXT(entry)) { + if (!HeKEY_hek(entry)) + continue; if (HeHASH(entry) != hash) /* strings can't be equal */ continue; if (HeKLEN(entry) != (I32)klen) |