From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 13 Apr 2006 15:52:15 +0000 (+0300)
Subject: regexec.c: (Coverity) add NULL check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae5031b371f095348493551a625aee038f332011;p=p5sagit%2Fp5-mst-13.2.git

regexec.c: (Coverity) add NULL check
Message-Id: <200604131252.k3DCqFUL497781@kosh.hut.fi>
Date: Thu, 13 Apr 2006 15:52:15 +0300 (EEST)

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

diff --git a/regexec.c b/regexec.c
index 399410f..284fe7e 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3780,7 +3780,7 @@ S_regmatch(pTHX_ regexp *rex, regnode *prog)
 	    {
 		I32 type;
 		type = OP(scan);
-		if (OP(next) != type)	/* No choice. */
+		if (!next || OP(next) != type)	/* No choice. */
 		    next = inner;	/* Avoid recursion. */
 		else {
 		    const I32 lastparen = *PL_reglastparen;