]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Lower the ptable initial size
authorVincent Pit <vince@profvince.com>
Sun, 17 May 2009 20:45:23 +0000 (22:45 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 17 May 2009 20:45:23 +0000 (22:45 +0200)
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);
- t->max   = 127;
+ t->max   = 15;
  t->items = 0;
  t->ary   = PerlMemShared_calloc(t->max + 1, sizeof *t->ary);
  return t;