Change 13485 by jhi@alpha on 2001/12/06 14:07:54
Subject: [PATCH: bleadperl] casefold backref
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 05 Dec 2001 17:27:05 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/regexec.c#210 edit
.... //depot/perl/t/op/re_tests#69 edit
Differences ...
==== //depot/perl/regexec.c#210 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Thu Dec 6 07:15:05 2001
+++ perl/regexec.c Thu Dec 6 07:15:05 2001
@@ -3354,13 +3354,13 @@
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];
==== //depot/perl/t/op/re_tests#69 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests.~1~ Thu Dec 6 07:15:05 2001
+++ perl/t/op/re_tests Thu Dec 6 07:15:05 2001
@@ -796,3 +796,4 @@
(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 - -
End of Patch.
