This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
the test for #129897 was missing the min-mod (?) on the dot star
authorYves Orton <demerphq@gmail.com>
Thu, 20 Oct 2016 16:20:20 +0000 (18:20 +0200)
committerYves Orton <demerphq@gmail.com>
Thu, 20 Oct 2016 16:24:03 +0000 (18:24 +0200)
commitac2365fd3e6ee3859752ba66fcfe36bae3a4d2ac
tree4fc59d9e5d3f30533fa1009415a5ae1c52d0b75b
parentacc7b1ff0249e542e31a4d3d86e4f3c5f7627f8b
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.
t/re/re_tests