From: Mark-Jason Dominus <mjd@plover.com>
Date: Sat, 21 Apr 2001 21:27:49 +0000 (-0400)
Subject: Re: ANYOF_SIZE is wrong in 5.7.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83c2f623ab800d4b316b958f530d3ecd95448b48;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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. */