hugo patch for gh-17775

Perl · May 12, 2020 · 5dde408 · 5dde408
1 parent 6319bad
commit 5dde408
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/regcomp.c b/regcomp.c
@@ -16466,7 +16466,7 @@ S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV** return_invlist,
                            /* If more than a single node returned, the nested
                             * parens evaluated to more than just a (?[...]),
                             * which isn't legal */
-                        || node != 1) {
+                        || RExC_emit != 1 + 4) {
                         vFAIL("Expecting interpolated extended charclass");
                     }
                     resultant_invlist = (SV *) ARGp(REGNODE_p(node));