From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 31 May 2011 15:19:11 +0000 (-0600)
Subject: regcomp.c: Add comment
X-Git-Tag: accepted/trunk/20130322.191538~3993
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=17a3c6170cd566f3e55b1ff23a3d274e4374b72c;p=platform%2Fupstream%2Fperl.git

regcomp.c: Add comment
---

diff --git a/regcomp.c b/regcomp.c
index d5ded04..a067af6 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