casefold backref

Message-Id: <200112051727.fB5HR5422706@crypt.compulink.co.uk>

p4raw-id: //depot/perl@13485

diff --git a/regexec.c b/regexec.c
index 415bc70..6ba0975 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3354,13 +3354,13 @@ S_regmatch(pTHX_ regnode *prog)
 
                    if (!UTF) {
                        c2 = c1 = *s;
-                       if (OP(text_node) == EXACTF)
+                       if (OP(text_node) == EXACTF || OP(text_node) == REFF)
                            c2 = PL_fold[c1];
-                       else if (OP(text_node) == EXACTFL)
+                       else if (OP(text_node) == EXACTFL || OP(text_node) == REFFL)
                            c2 = PL_fold_locale[c1];
                    }
                    else { /* UTF */
-                       if (OP(text_node) == EXACTF) {
+                       if (OP(text_node) == EXACTF || OP(text_node) == REFF) {
                             STRLEN ulen1, ulen2;
                             U8 tmpbuf1[UTF8_MAXLEN*2+1];
                             U8 tmpbuf2[UTF8_MAXLEN*2+1];

diff --git a/t/op/re_tests b/t/op/re_tests
index c7ab5ad..3d939a6 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -796,3 +796,4 @@ ab(?i)cd    abCd    y       -       -
 (A|B)*(?(1)(CD)|(CD))  ABCD    y       $2-$3   CD-
 (A|B)*?(?(1)(CD)|(CD)) CD      y       $2-$3   -CD     # [ID 20010803.016]
 (A|B)*?(?(1)(CD)|(CD)) ABCD    y       $2-$3   CD-
+'^(o)(?!.*\1)'i        Oo      n       -       -