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