This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reverting change #27791 which may cause corruption addition corruption
authorSteve Peters <steve@fisharerojo.org>
Fri, 14 Apr 2006 11:26:59 +0000 (11:26 +0000)
committerSteve Peters <steve@fisharerojo.org>
Fri, 14 Apr 2006 11:26:59 +0000 (11:26 +0000)
within a regular expression.
p4raw-link: @27791 on //depot/perl: 4ae2f9814731932908f61ce4a79c6da6063584e7

p4raw-id: //depot/perl@27797

regexec.c

index 34fd1ac..87c0e99 100644 (file)
--- 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... */