From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Tue, 25 Sep 2012 10:02:43 +0000 (+0900)
Subject: no longer size CvSTASH perl RT79366
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=336fdadd2abc1276722306353bb6b90c473e6ce7;p=p5sagit%2FDevel-Size.git

no longer size CvSTASH perl RT79366
---

diff --git a/Size.xs b/Size.xs
index 352f616..1de7568 100644
--- a/Size.xs
+++ b/Size.xs
@@ -1135,7 +1135,7 @@ if (PTR2UV(HeVAL(cur_entry)) > 0xFFF)
     goto freescalar;
 
   case SVt_PVCV: TAG;
-    sv_size(aTHX_ st, NPathLink("CvSTASH"), (SV *)CvSTASH(thing), SOME_RECURSION);
+    /* not CvSTASH, per https://rt.cpan.org/Ticket/Display.html?id=79366 */
     sv_size(aTHX_ st, NPathLink("SvSTASH"), (SV *)SvSTASH(thing), SOME_RECURSION);
     sv_size(aTHX_ st, NPathLink("CvGV"), (SV *)CvGV(thing), SOME_RECURSION);
     padlist_size(aTHX_ st, NPathLink("CvPADLIST"), CvPADLIST(thing), SOME_RECURSION);