From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 29 Dec 2008 11:22:55 +0000 (+0000)
Subject: PL_registered_mros can start with 1 hash bucket, as it will probably never
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e1694326ed89111b35daf7589dacbe10253cdcd;p=p5sagit%2Fp5-mst-13.2.git

PL_registered_mros can start with 1 hash bucket, as it will probably never
contain more than "dfs", and even if C3 is loaded, 2 buckets are less than the
default of 8.
---

diff --git a/perl.c b/perl.c
index 27aff77..7c5da00 100644
--- a/perl.c
+++ b/perl.c
@@ -462,6 +462,8 @@ perl_construct(pTHXx)
 #endif
 
     PL_registered_mros = newHV();
+    /* Start with 1 bucket, for DFS.  It's unlikely we'll need more.  */
+    HvMAX(PL_registered_mros) = 0;
 
     ENTER;
 }