summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-05-31 09:19:11 -0600
committerKarl Williamson <public@khwilliamson.com>2011-05-31 09:38:56 -0600
commit17a3c6170cd566f3e55b1ff23a3d274e4374b72c (patch)
tree7510d90408e3a471fe83c1ce757a134491adfb5e
parentd23ed4f3a45ba6d4fd1addb59dd6fca9360e2aff (diff)
downloadperl-17a3c6170cd566f3e55b1ff23a3d274e4374b72c.tar.gz
regcomp.c: Add comment
-rw-r--r--regcomp.c1
1 files changed, 1 insertions, 0 deletions
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