summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-12-22 17:58:20 -0700
committerKarl Williamson <public@khwilliamson.com>2011-12-22 17:58:20 -0700
commit70632b3db38475c17b11791eaee658c2365a243f (patch)
treeafc476e1eef47aa57a1b682d4298f40c54bd7d69
parent2c3cce3c514945a143abebbf27321363ef656035 (diff)
downloadperl-70632b3db38475c17b11791eaee658c2365a243f.tar.gz
regcomp.c: Silence valgrind warning
This happens only in doing debug output. Initialize these two debugging variables
-rw-r--r--regcomp.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 6cc680b1da..b2439d903b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4664,7 +4664,11 @@ Perl_re_compile(pTHX_ SV * const pattern, U32 orig_pm_flags)
* Clever compilers notice this and complain. --jhi */
REGC((U8)REG_MAGIC, (char*)RExC_emit);
#endif
- DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log, "Starting first pass (sizing)\n"));
+ DEBUG_PARSE_r(
+ PerlIO_printf(Perl_debug_log, "Starting first pass (sizing)\n");
+ RExC_lastnum=0;
+ RExC_lastparse=NULL;
+ );
if (reg(pRExC_state, 0, &flags,1) == NULL) {
RExC_precomp = NULL;
return(NULL);