1 files changed, 2 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index b40733ff90..1e23a7a3c8 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -117,7 +117,8 @@ PP(pp_regcomp)
 		&is_bare_re,
 		(pm->op_pmflags & (RXf_PMf_COMPILETIME|PMf_HAS_CV)));
     if (pm->op_pmflags & PMf_HAS_CV)
-	((struct regexp *)SvANY(new_re))->qr_anoncv = PAD_SV(PL_op->op_targ);
+	((struct regexp *)SvANY(new_re))->qr_anoncv
+					= (CV*) PAD_SV(PL_op->op_targ);
 
     if (is_bare_re) {
 	REGEXP *tmp;