diff options
author | David Mitchell <davem@iabyn.com> | 2009-03-22 15:58:26 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-03-22 15:58:26 +0000 |
commit | c966426a3bb6619c8372ea83168fa58260cf133b (patch) | |
tree | 8c8fe99315230a947ec9ab146db43933e8effcb3 /regexec.c | |
parent | ac56ae2e858af2a770b8e1bbf5cc5d10917fbc46 (diff) | |
download | perl-c966426a3bb6619c8372ea83168fa58260cf133b.tar.gz |
fix [RT #60034]. An equivalent fix was already in 5.8.9 as change 34580.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -4478,8 +4478,11 @@ NULL cur_eval->u.eval.close_paren == (U32)ST.me->flags) goto fake_end; - if ( ST.count < (ST.minmod ? ARG1(ST.me) : ARG2(ST.me)) ) - goto curlym_do_A; /* try to match another A */ + { + I32 max = (ST.minmod ? ARG1(ST.me) : ARG2(ST.me)); + if ( max == REG_INFTY || ST.count < max ) + goto curlym_do_A; /* try to match another A */ + } goto curlym_do_B; /* try to match B */ case CURLYM_A_fail: /* just failed to match an A */ |