[ID 20000803.001] further regexp counting problems

Message-Id: <200008031725.SAA10580@crypt.compulink.co.uk>

p4raw-id: //depot/perl@6508

1 files changed, 2 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index a15eb233de..f092e7e4c3 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -904,6 +904,8 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da
 			} else {
 			    /* start offset must point into the last copy */
 			    data->last_start_min += minnext * (mincount - 1);
+			    data->last_start_max += is_inf ? 0 : (maxcount - 1)
+				* (minnext + data->pos_delta);
 			}
 		    }
 		    /* It is counted once already... */