pp_regcomp(): fix refcnt issue with qr_anoncv

Assigning to qr_anoncv was introduced a few commits ago, but
I forgot to increase the reference count

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 1e23a7a3c8..24a0d3e5d0 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -118,7 +118,7 @@ PP(pp_regcomp)
 		(pm->op_pmflags & (RXf_PMf_COMPILETIME|PMf_HAS_CV)));
     if (pm->op_pmflags & PMf_HAS_CV)
 	((struct regexp *)SvANY(new_re))->qr_anoncv
-					= (CV*) PAD_SV(PL_op->op_targ);
+			= (CV*) SvREFCNT_inc(PAD_SV(PL_op->op_targ));
 
     if (is_bare_re) {
 	REGEXP *tmp;