From: Vincent Pit <vince@profvince.com>
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);
   }
  }