This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30638 to 5.8.x inadvertently introduced (at lest) two
authorNicholas Clark <nick@ccl4.org>
Mon, 22 Sep 2008 20:39:30 +0000 (20:39 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 22 Sep 2008 20:39:30 +0000 (20:39 +0000)
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

t/op/re_tests

index ddeb55c..2b74175 100644 (file)
@@ -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