c07766a234204d78a80b6d75534e03ae3465b6f3 is a better fix for RT #47902 than 4cb0e2cc2...

[perl/modules/indirect.git] / ptable.h

diff --git a/ptable.h b/ptable.h
index 92d1a04cff5175c21cc34178df3714984197d325..f3d2712e6b4e6d1d4e32a474e82fa6290db0e246 100644 (file)
--- a/ptable.h
+++ b/ptable.h
@@ -155,7 +155,7 @@ STATIC void PTABLE_PREFIX(_store)(pPTBL_ ptable * const t, const void * const ke
   void *oldval = ent->val;
   PTABLE_VAL_FREE(oldval);
   ent->val = val;
- } else {
+ } else if (val) {
   const UV i = PTABLE_HASH(key) & t->max;
   ent = PerlMemShared_malloc(sizeof *ent);
   ent->key  = key;