X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=f928fdc2efe6734545b65e5f037eeaf1e7fbb39e;hp=45c1b50fedd200c8a023a389abb8842b35fb730b;hb=f02dad546d5c13916b4771154d8f7284fc3cb31c;hpb=1efdddc6d7dcbec1d5dfb47938a91cd3483c8ff2

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);
   }
  }