This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] optimize /[x]/ to /x/.
authorYves Orton <demerphq@gmail.com>
Sun, 21 May 2006 19:32:15 +0000 (21:32 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 22 May 2006 13:09:12 +0000 (13:09 +0000)
Message-ID: <9b18b3110605211032n5035d2cfne703514d8271e181@mail.gmail.com>

New tests.

p4raw-id: //depot/perl@28269

t/op/re_tests

index 8c8beb1..03afa19 100644 (file)
@@ -70,6 +70,11 @@ a.*c axyzc   y       $&      axyzc
 a.*c   axyzd   n       -       -
 a[bc]d abc     n       -       -
 a[bc]d abd     y       $&      abd
+a[b]d  abd     y       $&      abd
+[a][b][d]      abd     y       $&      abd
+.[b].  abd     y       $&      abd
+.[b].  aBd     n       -       -
+(?i:.[b].)     abd     y       $&      abd
 a[b-d]e        abd     n       -       -
 a[b-d]e        ace     y       $&      ace
 a[b-d] aac     y       $&      ac