summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-05-21 17:32:02 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-23 22:04:05 +0000
commit997999616a41239c1d6c9779baa38c6a3a23f85e (patch)
tree3e6b66ddb937c7ead846d0a6a9fd612999edb95f /regcomp.c
parentb4c2bf25e07c61dbbe9f49212bf3585b479358e1 (diff)
downloadperl-997999616a41239c1d6c9779baa38c6a3a23f85e.tar.gz
Re: [ID 20000716.007] \G in a m//g expression causes problems
Message-Id: <200105211532.QAA03999@crypt.compulink.co.uk> p4raw-id: //depot/perl@10187
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 1fdc44aee5..fbda2098c9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1059,7 +1059,7 @@ 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)
- && !(data->flags & (SF_HAS_PAR|SF_IN_PAR))
+ && data && !(data->flags & (SF_HAS_PAR|SF_IN_PAR))
&& maxcount <= REG_INFTY/3) /* Complement check for big count */
{
vWARN(RExC_parse,