diff options
| author | David Mitchell <davem@iabyn.com> | 2011-11-14 16:21:42 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:25:52 +0100 |
| commit | 9ef2bcf6613fe182cb58be5a0cab64a9d4084b48 (patch) | |
| tree | e608927f7b1f9c5e10ea3121c86d870a90add936 | |
| parent | 346d3070ad0aa2f924e07bfdde6bb8809da64e45 (diff) | |
| download | perl-9ef2bcf6613fe182cb58be5a0cab64a9d4084b48.tar.gz | |
pp_regcomp(): fix casting issue from prev commit
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; |