From: Karl Williamson <khw@cpan.org>
Date: Sat, 19 Dec 2015 05:59:35 +0000 (-0700)
Subject: regcomp.c: Silence uninit compiler warning
X-Git-Tag: v5.23.6~16
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1059e5b21f7e16d18b3df847d2e5d3f343f44f1c?hp=347c22ab6557c6c5af3bfe60c86fe8b86472a5e1

regcomp.c: Silence uninit compiler warning

This shouldn't actually happen, and g++ under -O0 didn't flag it, but
gcc under -O2 does, so initialize to an illegal value
---

diff --git a/regcomp.c b/regcomp.c
index 68fcd2e..7a028fd 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -16132,7 +16132,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
     if (optimizable && cp_list && ! invert) {
         UV start, end;
         U8 op = END;  /* The optimzation node-type */
-        int posix_class;
+        int posix_class = -1;   /* Illegal value */
         const char * cur_parse= RExC_parse;
 
         invlist_iterinit(cp_list);