From 2a8d968921bf85a89f4bb388b94f9acdd8b1f27f Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Thu, 13 Jul 2000 20:27:13 +0100 Subject: [PATCH] The {multiplier} of a fixed substring was overlooked which caused a wrong initial search offset for that substring. Subject: [PATCH 5.6.0] Re: [ID 20000613.001] Regex works in v5.005_03 but fails in v5.06 Message-Id: <200007131827.TAA14487@crypt.compulink.co.uk> p4raw-id: //depot/cfgperl@6392 --- regcomp.c | 3 +++ t/op/re_tests | 4 ++++ 2 files changed, 7 insertions(+) diff --git a/regcomp.c b/regcomp.c index 0407e69..5b9d87e 100644 --- a/regcomp.c +++ b/regcomp.c @@ -901,6 +901,9 @@ S_study_chunk(pTHX_ regnode **scanp, I32 *deltap, regnode *last, scan_data_t *da sv_catsv(data->last_found, last_str); data->last_end += l * (mincount - 1); } + } else { + /* start offset must point into the last copy */ + data->last_start_min += minnext * (mincount - 1); } } /* It is counted once already... */ diff --git a/t/op/re_tests b/t/op/re_tests index 263bded..d944a25 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -751,5 +751,9 @@ tt+$ xxxtt y - - '^\S\s+aa$'m \nx aa y - - (^|a)b ab y - - ^([ab]*?)(b)?(c)$ abac y -$2- -- +^(?:.,){2}c a,b,c y - - +^(.,){2}c a,b,c y $1 b, +^(?:[^,]*,){2}c a,b,c y - - +^([^,]*,){2}c a,b,c y $1 b, (?i) y - - '(?!\A)x'm a\nxb\n y - - -- 2.7.4