propagate CvFLAGS() into clones

p4raw-id: //depot/perl@5780

1 files changed, 1 insertions, 2 deletions

diff --git a/op.c b/op.c
index 3d70756fc3..35fa3f5248 100644
--- a/op.c
+++ b/op.c
@@ -4151,9 +4151,8 @@ S_cv_clone2(pTHX_ CV *proto, CV *outside)
 
     cv = PL_compcv = (CV*)NEWSV(1104,0);
     sv_upgrade((SV *)cv, SvTYPE(proto));
+    CvFLAGS(cv) = CvFLAGS(proto) & ~CVf_CLONE;
     CvCLONED_on(cv);
-    if (CvANON(proto))
-	CvANON_on(cv);
 
 #ifdef USE_THREADS
     New(666, CvMUTEXP(cv), 1, perl_mutex);