From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 13 Apr 2006 15:08:04 +0000 (+0000)
Subject: Add another NULL check thanks to Coverity.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ae2f9814731932908f61ce4a79c6da6063584e7;p=p5sagit%2Fp5-mst-13.2.git

Add another NULL check thanks to Coverity.

p4raw-id: //depot/perl@27791
---

diff --git a/regexec.c b/regexec.c
index 284fe7e..4aa27f8 100644
--- 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... */