Re: ANYOF_SIZE is wrong in 5.7.1

Message-ID: <20010422012749.27024.qmail@plover.com>

p4raw-id: //depot/perl@9778

diff --git a/regcomp.c b/regcomp.c
index b94081e..59b2712 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4218,8 +4218,7 @@ S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l)
            node = dumpuntil(start, NEXTOPER(node), NEXTOPER(node) + 1, sv, l + 1);
        }
        else if (op == ANYOF) {
-           node = NEXTOPER(node);
-           node += ANYOF_SKIP;
+            node = next;
        }
        else if (PL_regkind[(U8)op] == EXACT) {
             /* Literal string, where present. */