From 17a3c6170cd566f3e55b1ff23a3d274e4374b72c Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 31 May 2011 09:19:11 -0600 Subject: regcomp.c: Add comment --- regcomp.c | 1 + 1 file changed, 1 insertion(+) diff --git a/regcomp.c b/regcomp.c index d5ded04716..a067af6be8 100644 --- a/regcomp.c +++ b/regcomp.c @@ -6653,6 +6653,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth) SvIV_set(sv_dat, 1); } #ifdef DEBUGGING + /* Yes this does cause a memory leak in debugging Perls */ if (!av_store(RExC_paren_name_list, RExC_npar, SvREFCNT_inc(svname))) SvREFCNT_dec(svname); #endif -- cgit v1.2.1