From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 16 Mar 2002 18:51:45 +0000 (+0000)
Subject: Better place to initialize (IRIX cc noticed that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58ae7d3f026eda03e7850b941a2c0f0f9b4e393c;p=p5sagit%2Fp5-mst-13.2.git

Better place to initialize (IRIX cc noticed that
the many "goto defchars" bypass the initialization)

p4raw-id: //depot/perl@15265
---

diff --git a/regcomp.c b/regcomp.c
index 86cd1ab..7c34d8f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3024,7 +3024,7 @@ tryagain:
 
     default: {
 	    register STRLEN len;
-	    register UV ender = 0;
+	    register UV ender;
 	    register char *p;
 	    char *oldp, *s;
 	    STRLEN numlen;
@@ -3036,6 +3036,7 @@ tryagain:
 	    RExC_parse++;
 
 	defchar:
+	    ender = 0;
 	    ret = reg_node(pRExC_state, FOLD
 			  ? (LOC ? EXACTFL : EXACTF)
 			  : EXACT);