From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 22 Sep 2008 20:39:30 +0000 (+0000)
Subject: Change 30638 to 5.8.x inadvertently introduced (at lest) two
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44d268c35b0990eda9f6bc86f3f06731b6aec174;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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