In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ac2365fd3e6ee3859752ba66fcfe36bae3a4d2ac?hp=acc7b1ff0249e542e31a4d3d86e4f3c5f7627f8b>
- Log ----------------------------------------------------------------- commit ac2365fd3e6ee3859752ba66fcfe36bae3a4d2ac Author: Yves Orton <[email protected]> Date: Thu Oct 20 18:20:20 2016 +0200 the test for #129897 was missing the min-mod (?) on the dot star A plain .* will make the pattern match skip the bug we are testing for. We need .*? to see the difference Fixed: ./perl -Ilib -le'"riiaan"=~/(.*?(a(a)|i(i))n)/ and print "$2-$3-$4-$1"' aa-a--riiaan Broken: perl -le'"riiaan"=~/(.*?(a(a)|i(i))n)/ and print "$2-$3-$4-$1"' aa-a-i-riiaan Maybe the test could make this more explicit. Not sure if its worth it. Thanks to Aaron Crane for noticing the test didn't do what it was meant to. Bad Yves. ----------------------------------------------------------------------- Summary of changes: t/re/re_tests | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/re/re_tests b/t/re/re_tests index d6f8436..046beaa 100644 --- a/t/re/re_tests +++ b/t/re/re_tests @@ -1970,7 +1970,7 @@ aa$|a(?R)a|a aaa y $& aaa # [perl 128420] recursive matches (?:\1|a)([bcd])\1(?:(?R)|e)\1 abbaccaddedcb y $& abbaccaddedcb # [perl 128420] recursive match with backreferences AB\s+\x{100} AB \x{100}X y - - \b\z0*\x{100} .\x{100} n - - # [perl #129350] crashed in intuit_start -(.*(a(a)|i(i))n) riiaan y $2-$3-$4-$1 aa-a--riiaan # Jump trie capture buffer issue [perl #129897] +(.*?(a(a)|i(i))n) riiaan y $2-$3-$4-$1 aa-a--riiaan # Jump trie capture buffer issue [perl #129897] (^(?:(\d)x)?\d$) 1 y [$1-$2] [1-] # make sure that we reset capture buffers properly (from regtry) # Keep these lines at the end of the file -- Perl5 Master Repository
