From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 30 Sep 2012 07:50:12 +0000 (+0900)
Subject: For non-magical XPVMGs, count OURSTASH for if present
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c922539f9f7fb7cb484e1ee3039f74dba07ea525;p=p5sagit%2FDevel-Size.git

For non-magical XPVMGs, count OURSTASH for if present
---

diff --git a/Memory.xs b/Memory.xs
index a111755..dcb0584 100644
--- a/Memory.xs
+++ b/Memory.xs
@@ -1271,6 +1271,8 @@ else warn("skipped suspect HeVAL %p", HeVAL(cur_entry));
   if (type >= SVt_PVMG) {
     if (SvMAGICAL(thing))
       magic_size(aTHX_ thing, st, NPathLink("MG"));
+    if (SvPAD_OUR(thing) && SvOURSTASH(thing))
+      sv_size(aTHX_ st, NPathLink("SvOURSTASH"), (SV *)SvOURSTASH(thing), SOME_RECURSION);
   }
 
   return;