diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-06-21 10:51:17 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 12:21:17 +0000 |
| commit | 84037bb083599c663af466e6d56eeb23fdebad94 (patch) | |
| tree | e8446f83a470099dd527b48d2b502ee1fa228bb3 | |
| parent | 569b5e0701b7ad38283e8026b4d1fd769624723b (diff) | |
| download | perl-84037bb083599c663af466e6d56eeb23fdebad94.tar.gz | |
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
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 */ { |