From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Wed, 26 Sep 2012 13:35:24 +0000 (+0900)
Subject: Recurse into CvPADLISTs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb73dc893b6bf09bce7b81b00dd3818882ba2b4c;p=p5sagit%2FDevel-Size.git

Recurse into CvPADLISTs
---

diff --git a/Size.xs b/Size.xs
index fb02351..2d4f39b 100644
--- a/Size.xs
+++ b/Size.xs
@@ -1139,7 +1139,7 @@ else warn("skipped suspect HeVAL %p", HeVAL(cur_entry));
 
 
   case SVt_PVFM: TAG;
-    padlist_size(aTHX_ st, NPathLink("CvPADLIST"), CvPADLIST(thing), SOME_RECURSION);
+    padlist_size(aTHX_ st, NPathLink("CvPADLIST"), CvPADLIST(thing), recurse);
     sv_size(aTHX_ st, NPathLink("CvOUTSIDE"), (SV *)CvOUTSIDE(thing), recurse);
 
     if (st->go_yell && !st->fm_whine) {
@@ -1152,7 +1152,7 @@ else warn("skipped suspect HeVAL %p", HeVAL(cur_entry));
     /* 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);
+    padlist_size(aTHX_ st, NPathLink("CvPADLIST"), CvPADLIST(thing), recurse);
     sv_size(aTHX_ st, NPathLink("CvOUTSIDE"), (SV *)CvOUTSIDE(thing), recurse);
     if (CvISXSUB(thing)) {
 	sv_size(aTHX_ st, NPathLink("cv_const_sv"), cv_const_sv((CV *)thing), recurse);