Change 13966 by jhi@alpha on 2001/12/30 23:30:56
Make that six wrongs.
Affected files ...
.... //depot/perl/regexec.c#226 edit
.... //depot/perl/utf8.c#140 edit
Differences ...
==== //depot/perl/regexec.c#226 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sun Dec 30 16:45:05 2001
+++ perl/regexec.c Sun Dec 30 16:45:05 2001
@@ -1002,7 +1002,7 @@
c == (UV)UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA)
c = (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA;
if ( (c == c1 || c == c2 || f == c1 || f == c2)
- && (ln == len ||
+ && (ln == len || ln == foldlen ||
!ibcmp_utf8(s, do_utf8, (I32)(strend - s),
m, UTF, (I32)ln))
&& (norun || regtry(prog, s)) )
==== //depot/perl/utf8.c#140 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~ Sun Dec 30 16:45:05 2001
+++ perl/utf8.c Sun Dec 30 16:45:05 2001
@@ -1703,8 +1703,7 @@
else
ulen2 = 1;
if (ulen1 != ulen2
- || (ca < 256 && cb < 256 &&
- PL_fold[ca] != PL_fold[cb])
+ || (ca < 256 && cb < 256 && ca != PL_fold[cb])
|| memNE((char *)tmpbuf1, (char *)tmpbuf2, ulen1))
return 1; /* mismatch */
}
End of Patch.
