From 30b2893d4b20c43880f1a64192bda137a40ee39f Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Fri, 14 Apr 2006 11:26:59 +0000 Subject: [PATCH] Reverting change #27791 which may cause corruption addition corruption within a regular expression. p4raw-link: @27791 on //depot/perl: 4ae2f9814731932908f61ce4a79c6da6063584e7 p4raw-id: //depot/perl@27797 --- regexec.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index 34fd1ac..87c0e99 100644 --- a/regexec.c +++ b/regexec.c @@ -3528,7 +3528,7 @@ S_regmatch(pTHX_ const regmatch_info *reginfo, regnode *prog) /* No need to save/restore up to this paren */ I32 parenfloor = scan->flags; - if (next && (OP(PREVOPER(next)) == NOTHING)) /* LONGJMP */ + if (OP(PREVOPER(next)) == NOTHING) /* LONGJMP */ next += ARG(next); /* XXXX Probably it is better to teach regpush to support parenfloor > PL_regsize... */ -- 1.8.3.1