From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 1 Oct 2012 01:09:20 +0000 (+0900)
Subject: Count lexical hint hashes in COPs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5b3464ac293121dc7e855882536573e67eb08be;p=p5sagit%2FDevel-Size.git

Count lexical hint hashes in COPs
---

diff --git a/Memory.xs b/Memory.xs
index a782f06..578d5fa 100644
--- a/Memory.xs
+++ b/Memory.xs
@@ -860,6 +860,7 @@ op_size(pTHX_ const OP * const baseop, struct state *st, pPATH)
 	case OPc_COP: TAG;
         {
           COP *basecop;
+	  COPHH *hh;
           basecop = (COP *)baseop;
           ADD_SIZE(st, "cop", sizeof(struct cop));
 
@@ -882,6 +883,8 @@ op_size(pTHX_ const OP * const baseop, struct state *st, pPATH)
 	  sv_size(aTHX_ st, NPathLink("cop_filegv"), (SV *)basecop->cop_filegv, SOME_RECURSION);
 #endif
 
+	  hh = CopHINTHASH_get(basecop);
+	  refcounted_he_size(aTHX_ st, hh, NPathLink("cop_hints_hash"));
         }
         TAG;break;
       default: