diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-22 17:58:20 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-12-23 18:31:54 -0700 |
commit | aa157951fcf655cf0c8bc8cc644e4d01277d36cd (patch) | |
tree | 8a3950db1f9dbe3ebdaf47a2819ed91df8214f44 | |
parent | 78dee5f2d1bd1184e5038416777b3681b8eadfe9 (diff) | |
download | perl-aa157951fcf655cf0c8bc8cc644e4d01277d36cd.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); |