This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #3589] [BUG#3589 bleadperl]
authorReini Urban <rurban@x-ray.at>
Mon, 2 Jul 2007 14:59:08 +0000 (07:59 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 4 Jul 2007 13:38:42 +0000 (13:38 +0000)
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

t/op/re_tests

index 55b4300..87a3e50 100644 (file)
@@ -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