From: Vincent Pit Date: Fri, 28 Aug 2009 11:09:33 +0000 (+0200) Subject: c07766a234204d78a80b6d75534e03ae3465b6f3 is a better fix for RT #47902 than 4cb0e2cc2... X-Git-Tag: v0.19~5 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f02dad546d5c13916b4771154d8f7284fc3cb31c;p=perl%2Fmodules%2Findirect.git c07766a234204d78a80b6d75534e03ae3465b6f3 is a better fix for RT #47902 than 4cb0e2cc26fbe39a7a040b090b1a1e6c2380af0f As the issue wasn't actually fixed for non-anonsubs. --- diff --git a/indirect.xs b/indirect.xs index 45c1b50..f928fdc 100644 --- a/indirect.xs +++ b/indirect.xs @@ -298,8 +298,6 @@ STATIC SV *indirect_tag(pTHX_ SV *value) { value = SvRV(value); if (SvTYPE(value) >= SVt_PVCV) { code = value; - if (CvANON(code) && !CvCLONED(code)) - CvCLONE_on(code); SvREFCNT_inc_simple_NN(code); } }