From 44d268c35b0990eda9f6bc86f3f06731b6aec174 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 22 Sep 2008 20:39:30 +0000 Subject: [PATCH] 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 --- t/op/re_tests | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/op/re_tests b/t/op/re_tests index ddeb55c..2b74175 100644 --- 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 -- 2.7.4