]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
c07766a234204d78a80b6d75534e03ae3465b6f3 is a better fix for RT #47902 than 4cb0e2cc2...
authorVincent Pit <vince@profvince.com>
Fri, 28 Aug 2009 11:09:33 +0000 (13:09 +0200)
committerVincent Pit <vince@profvince.com>
Fri, 28 Aug 2009 11:09:40 +0000 (13:09 +0200)
As the issue wasn't actually fixed for non-anonsubs.

indirect.xs

index 45c1b50fedd200c8a023a389abb8842b35fb730b..f928fdc2efe6734545b65e5f037eeaf1e7fbb39e 100644 (file)
@@ -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);
   }
  }