Change 34400 by [EMAIL PROTECTED] on 2008/09/22 20:39:30
Change 30638 to 5.8.x inadvertently introduced (at lest) two
regressions into the regexp engine. Add tests for the constructions
that regressed, to prevent any future change falling foul of the same
problem.
Affected files ...
... //depot/perl/t/op/re_tests#133 edit
Differences ...
==== //depot/perl/t/op/re_tests#133 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests#132~34202~ 2008-08-12 05:40:04.000000000 -0700
+++ perl/t/op/re_tests 2008-09-22 13:39:30.000000000 -0700
@@ -1351,3 +1351,9 @@
/\d+$ \n/ix >10\n y $& 10
/>\d\d$ \n/ix >10\n y $& >10
/>\d+$ \n/x >10\n y $& >10
+
+# Two regressions in 5.8.x (only) introduced by change 30638
+# Simplification of the test failure in XML::LibXML::Simple:
+/^\s*i.*?o\s*$/s io\n io y - -
+# As reported in #59168 by Father Chrysostomos:
+/(.*?)a(?!(a+)b\2c)/ baaabaac y $&-$1 baa-ba
End of Patch.
