diff options
author | Karl Williamson <khw@cpan.org> | 2018-10-14 15:12:41 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-10-20 00:09:55 -0600 |
commit | 0c5db32cd0e258d37a6406a3c4449f53cc6ac3ea (patch) | |
tree | 6b67fe5890129c4075c7a8a61789ca689fb6e335 | |
parent | daca87b169fc14e32828c7d4c4eaf36c6e1bb5df (diff) | |
download | perl-0c5db32cd0e258d37a6406a3c4449f53cc6ac3ea.tar.gz |
regcomp.c: Use SvREFCNT_inc_NN()
We know this is non-null as it panics a little ways above unless that's
the case.
-rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -11234,7 +11234,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth) /* Yes this does cause a memory leak in debugging Perls * */ if (!av_store(RExC_paren_name_list, - RExC_npar, SvREFCNT_inc(svname))) + RExC_npar, SvREFCNT_inc_NN(svname))) SvREFCNT_dec_NN(svname); #endif |