Tweak PERL_BCDVERSION for ps->compcv
Tim Bunce [Thu, 11 Oct 2012 14:54:18 +0000 (15:54 +0100)]
SizeMe.xs

index 8929561..ca4e6c6 100644 (file)
--- a/SizeMe.xs
+++ b/SizeMe.xs
@@ -1524,7 +1524,7 @@ parser_size(pTHX_ struct state *const st, pPATH, yy_parser *parser)
   /*warn("foo: %u", parser->ps - parser->stack); */
   ADD_SIZE(st, "stack_frames", parser->stack_size * sizeof(yy_stack_frame));
   for (ps = parser->stack; ps <= parser->ps; ps++) {
-#if (PERL_BCDVERSION >= 0x5011001) /* roughly */
+#if (PERL_BCDVERSION >= 0x5011002) /* roughly */
     if (sv_size(aTHX_ st, NPathLink("compcv"), (SV*)ps->compcv, TOTAL_SIZE_RECURSION))
         ADD_LINK_ATTR(st, NPattr_NOTE, "i", ps - parser->ps);
 #else /* prior to perl 8c63ea58  Dec 8 2009 */