diff options
author | Mark-Jason Dominus <mjd@plover.com> | 2001-04-21 17:27:49 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-22 15:14:33 +0000 |
commit | 83c2f623ab800d4b316b958f530d3ecd95448b48 (patch) | |
tree | 18f85d0badda87a325eea2d7e89e36c1f0a2acf0 /regcomp.c | |
parent | 1c102323748677709a3cb1ae901516a4e38b750e (diff) | |
download | perl-83c2f623ab800d4b316b958f530d3ecd95448b48.tar.gz |
Re: ANYOF_SIZE is wrong in 5.7.1
Message-ID: <20010422012749.27024.qmail@plover.com>
p4raw-id: //depot/perl@9778
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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. */ |