The cop_stash pointer isn't reference counted, so don't add its size.

See rt.perl.org #117941 for the obscure problems that this lack of reference
counting can cause.

diff --git a/Size.xs b/Size.xs
index f06f85e..6f7d0fb 100644 (file)
--- a/Size.xs
+++ b/Size.xs
@@ -520,7 +520,6 @@ op_size(pTHX_ const OP * const baseop, struct state *st)
           check_new_and_strlen(st, basecop->cop_file);
           check_new_and_strlen(st, basecop->cop_stashpv);
 #else
-         sv_size(aTHX_ st, (SV *)basecop->cop_stash, SOME_RECURSION);
          sv_size(aTHX_ st, (SV *)basecop->cop_filegv, SOME_RECURSION);
 #endif