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 (file)
--- 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++;