STATIC ptable *ptable_new(pPTBLMS) {
#define ptable_new() ptable_new(aPTBLMS)
ptable *t = PerlMemShared_malloc(sizeof *t);
- t->max = 127;
+ t->max = 15;
t->items = 0;
t->ary = PerlMemShared_calloc(t->max + 1, sizeof *t->ary);
return t;
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;