diff options
| author | David Mitchell <davem@iabyn.com> | 2011-11-23 14:19:52 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:45 +0100 |
| commit | 9fe3265f80780ae89bff15514f96265eaac469d9 (patch) | |
| tree | 647748b0a4310750c5d5a60bcee59902ebf3c818 /pp_ctl.c | |
| parent | 6b65ee8dd7e74f4f4b67ad25535ec2e6987f4ac5 (diff) | |
| download | perl-9fe3265f80780ae89bff15514f96265eaac469d9.tar.gz | |
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
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |