From: Reini Urban <rurban@x-ray.at>
Date: Mon, 2 Jul 2007 14:59:08 +0000 (-0700)
Subject: [perl #3589] [BUG#3589 bleadperl]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee1d8f2a25903fb54e818c4354da3e5bf226ba01;p=p5sagit%2Fp5-mst-13.2.git

[perl #3589] [BUG#3589 bleadperl]
From: "Reini Urban via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-20473-1183413546-187.3589-15-0@perl.org>

p4raw-id: //depot/perl@31530
---

diff --git a/t/op/re_tests b/t/op/re_tests
index 55b4300..87a3e50 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -269,6 +269,8 @@ a[-]?c	ac	y	$&	ac
 ((\3|b)\2(a)x)+	aaxabxbaxbbx	n	-	-
 ((\3|b)\2(a)x)+	aaaxabaxbaaxbbax	y	$&-$1-$2-$3	bbax-bbax-b-a
 ((\3|b)\2(a)){2,}	bbaababbabaaaaabbaaaabba	y	$&-$1-$2-$3	bbaaaabba-bba-b-a
+#Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
+^((.)?a\2)+$	babadad	n	-	-
 (a)|(b)	b	y	$-[0]	0
 (a)|(b)	b	y	$+[0]	1
 (a)|(b)	b	y	x$-[1]	x