From: Vincent Pit <vince@profvince.com>
Date: Sun, 17 May 2009 20:45:23 +0000 (+0200)
Subject: Lower the ptable initial size
X-Git-Tag: v0.13~8
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=a5cd7d9e00548e30af8b3f7e612b0ed739ed43be;ds=sidebyside

Lower the ptable initial size
---

diff --git a/ptable.h b/ptable.h
index 72be11d..92d1a04 100644
--- 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);
- t->max   = 127;
+ t->max   = 15;
  t->items = 0;
  t->ary   = PerlMemShared_calloc(t->max + 1, sizeof *t->ary);
  return t;