Change 15265 by jhi@alpha on 2002/03/16 18:51:45
Better place to initialize (IRIX cc noticed that
the many "goto defchars" bypass the initialization)
Affected files ...
.... //depot/perl/regcomp.c#294 edit
Differences ...
==== //depot/perl/regcomp.c#294 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sat Mar 16 12:00:06 2002
+++ perl/regcomp.c Sat Mar 16 12:00:06 2002
@@ -3024,7 +3024,7 @@
default: {
register STRLEN len;
- register UV ender = 0;
+ register UV ender;
register char *p;
char *oldp, *s;
STRLEN numlen;
@@ -3036,6 +3036,7 @@
RExC_parse++;
defchar:
+ ender = 0;
ret = reg_node(pRExC_state, FOLD
? (LOC ? EXACTFL : EXACTF)
: EXACT);
End of Patch.