-/* This file is part of the Lexical-Types Perl module.
+/* This file is part of the Lexical::Types Perl module.
* See http://search.cpan.org/dist/Lexical-Types/ */
/* This is a pointer table implementation essentially copied from the ptr_table
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;
PerlMemShared_free(t);
}
+#undef pPTBL
+#undef pPTBL_
+#undef aPTBL
+#undef aPTBL_
+
#undef PTABLE_NAME
#undef PTABLE_VAL_FREE