X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Size.xs;h=2a210e398a5b62339712f323e3e94008c653be65;hb=574d9fd949280e15565bdd31f6d7c6b445e4884f;hp=654ff39ae5da72840ad67739c73e48b969036345;hpb=6ec51ae0066a3ae0165701ef644f20b01af516f3;p=p5sagit%2FDevel-Size.git

diff --git a/Size.xs b/Size.xs
index 654ff39..2a210e3 100644
--- a/Size.xs
+++ b/Size.xs
@@ -408,7 +408,11 @@ op_size(pTHX_ const OP * const baseop, struct state *st)
 	    TAG;break;
 	case OPc_SVOP: TAG;
 	    st->total_size += sizeof(struct pmop);
-	    sv_size(aTHX_ st, cSVOPx(baseop)->op_sv, TRUE);
+	    if (!(baseop->op_type == OP_AELEMFAST
+		  && baseop->op_flags & OPf_SPECIAL)) {
+		/* not an OP_PADAV replacement */
+		sv_size(aTHX_ st, cSVOPx(baseop)->op_sv, TRUE);
+	    }
 	    TAG;break;
       case OPc_PADOP: TAG;
 	  st->total_size += sizeof(struct padop);