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.

p4raw-id: //depot/perl@34400

diff --git a/t/op/re_tests b/t/op/re_tests
index ddeb55c..2b74175 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1351,3 +1351,9 @@ foo(\h)bar        foo\tbar        y       $1      \t
 /\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