diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-22 17:58:20 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-12-22 17:58:20 -0700 |
commit | 70632b3db38475c17b11791eaee658c2365a243f (patch) | |
tree | afc476e1eef47aa57a1b682d4298f40c54bd7d69 | |
parent | 2c3cce3c514945a143abebbf27321363ef656035 (diff) | |
download | perl-70632b3db38475c17b11791eaee658c2365a243f.tar.gz |
regcomp.c: Silence valgrind warning
This happens only in doing debug output. Initialize these two debugging
variables
-rw-r--r-- | regcomp.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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); |