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-23 18:31:54 -0700
commitaa157951fcf655cf0c8bc8cc644e4d01277d36cd (patch)
tree8a3950db1f9dbe3ebdaf47a2819ed91df8214f44
parent78dee5f2d1bd1184e5038416777b3681b8eadfe9 (diff)
downloadperl-aa157951fcf655cf0c8bc8cc644e4d01277d36cd.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);