From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Jun 2001 19:50:40 +0000 (+0000)
Subject: Partially fix a problem noticed by IRIX compiler:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f06dbbb7326ef8a9ac427a089dffdd9affcac342;p=p5sagit%2Fp5-mst-13.2.git

Partially fix a problem noticed by IRIX compiler:
the initialization of parse_start was bypassed by
several gotos.  Now initialized to zero, which may
not be the best choice.

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

diff --git a/regcomp.c b/regcomp.c
index a12f4e1..9be1523 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2678,6 +2678,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp)
 {
     register regnode *ret = 0;
     I32 flags;
+    char *parse_start = 0;
 
     *flagp = WORST;		/* Tentatively. */
 
@@ -2951,7 +2952,8 @@ tryagain:
 	    register char *p;
 	    char *oldp, *s;
 	    STRLEN numlen;
-            char *parse_start = RExC_parse - 1;
+
+            parse_start = RExC_parse - 1;
 
 	    RExC_parse++;