From 9ef2bcf6613fe182cb58be5a0cab64a9d4084b48 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Mon, 14 Nov 2011 16:21:42 +0000 Subject: pp_regcomp(): fix casting issue from prev commit --- pp_ctl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- cgit v1.2.1