Make some room in t/4*.t

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 45c1b50fedd200c8a023a389abb8842b35fb730b..f928fdc2efe6734545b65e5f037eeaf1e7fbb39e 100644 (file)
--- 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);
   }
  }