Add another NULL check thanks to Coverity.

p4raw-id: //depot/perl@27791

diff --git a/regexec.c b/regexec.c
index 284fe7e..4aa27f8 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3524,7 +3524,7 @@ S_regmatch(pTHX_ regexp *rex, regnode *prog)
                /* No need to save/restore up to this paren */
                I32 parenfloor = scan->flags;
 
-               if (OP(PREVOPER(next)) == NOTHING) /* LONGJMP */
+               if (next && (OP(PREVOPER(next)) == NOTHING)) /* LONGJMP */
                    next += ARG(next);
                /* XXXX Probably it is better to teach regpush to support
                   parenfloor > PL_regsize... */