From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 May 2013 11:54:15 +0000 (+0200)
Subject: The cop_stash pointer isn't reference counted, so don't add its size.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a706444d26c2d6694a7244a812d2e387a219aa0;p=p5sagit%2FDevel-Size.git

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
--- 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