Lower the ptable initial size

diff --git a/ptable.h b/ptable.h
index 72be11d4b8ea72c85c1e30d01bccd2f83259acf8..92d1a04cff5175c21cc34178df3714984197d325 100644 (file)
--- a/ptable.h
+++ b/ptable.h
@@ -80,7 +80,7 @@ typedef struct ptable {
 STATIC ptable *ptable_new(pPTBLMS) {
 #define ptable_new() ptable_new(aPTBLMS)
  ptable *t = PerlMemShared_malloc(sizeof *t);
 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;
  t->items = 0;
  t->ary   = PerlMemShared_calloc(t->max + 1, sizeof *t->ary);
  return t;