From: Hugo van der Sanden <hv@crypt.org>
Date: Thu, 21 Jun 2001 09:51:17 +0000 (+0100)
Subject: Re: perl@10722: Bogus warnings on REs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84037bb083599c663af466e6d56eeb23fdebad94;p=p5sagit%2Fp5-mst-13.2.git

Re: perl@10722: Bogus warnings on REs
Message-Id: <200106210851.JAA01942@crypt.compulink.co.uk>

Unroll to avoid a UTS compiler bug.

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

diff --git a/regcomp.c b/regcomp.c
index 3241444..a12f4e1 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1076,7 +1076,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap, reg
 		}
 		if (!scan) 		/* It was not CURLYX, but CURLY. */
 		    scan = next;
-		if (ckWARN(WARN_REGEXP) && (minnext + deltanext == 0)
+		if (ckWARN(WARN_REGEXP)
+		    && (minnext == 0) && (deltanext == 0)
 		    && data && !(data->flags & (SF_HAS_PAR|SF_IN_PAR))
 		    && maxcount <= REG_INFTY/3) /* Complement check for big count */
 		{