From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 1 Oct 2012 02:19:13 +0000 (+0900)
Subject: Count PerlInterpreter when applicable
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e162a822910d81cad000b0340c7e0dd1f31d05bc;p=p5sagit%2FDevel-Size.git

Count PerlInterpreter when applicable
---

diff --git a/Memory.xs b/Memory.xs
index 30f8c9e..bf4791c 100644
--- a/Memory.xs
+++ b/Memory.xs
@@ -1421,7 +1421,9 @@ perl_size(pTHX_ struct state *const st, pPATH)
 
   /* if(!check_new(st, interp)) return; */
   NPathPushNode("perl", NPtype_NAME);
-
+#if defined(MULTIPLICITY)
+  ADD_SIZE(st, "PerlInterpreter", sizeof(PerlInterpreter));
+#endif
 /*
  *      perl
  *          PL_defstash