regcomp.c: Process all POSIXes in [...] under /l

Commit 31f05a37 introduced a regression in which if you have something
like /[\s\d[:punct:]/, all but the final class were ignored.  This was
due to initialization happening every time through the loop, instead of
the first time needed.

1 files changed, 6 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index e4f6c86bfd..dfbaec8089 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -13581,6 +13581,11 @@ parseit:
                 else {
                     RExC_emit += ANYOF_POSIXL_FOLD_SKIP - ANYOF_SKIP;
                 }
+
+                /* We need to initialize this here because this node type has
+                 * this field, and will skip getting initialized when we get to
+                 * a posix class since are doing it here */
+                ANYOF_POSIXL_ZERO(ret);
             }
             if (ANYOF_LOCALE == ANYOF_POSIXL
                 || (namedclass > OOB_NAMEDCLASS
@@ -13594,8 +13599,8 @@ parseit:
                     else {
                         RExC_emit += ANYOF_POSIXL_SKIP - ANYOF_SKIP;
                     }
+                    ANYOF_POSIXL_ZERO(ret);
                 }
-                ANYOF_POSIXL_ZERO(ret);
                 ANYOF_FLAGS(ret) |= ANYOF_POSIXL;
             }
         }