summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-11-30 01:09:17 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-30 01:09:17 +0000
commit596717cee028c8ad9e0b419ef9143521a52d81b0 (patch)
tree8e90f8591c987c3c68b96eb7e91e0eee2f5aaeda /utf8.c
parent84afefe65e567dcd9633a77e26cb0a95826679dd (diff)
downloadperl-596717cee028c8ad9e0b419ef9143521a52d81b0.tar.gz
Use to_uni_fold (and add changed global.sym)
p4raw-id: //depot/perl@13375
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/utf8.c b/utf8.c
index 1a92962a23..8711137feb 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1581,11 +1581,11 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, bool u1, const char *s2, bool u2, register
}
if (ca != cb) {
if (u1)
- to_uni_lower(NATIVE_TO_UNI(ca), tmpbuf1, &ulen1);
+ to_uni_fold(NATIVE_TO_UNI(ca), tmpbuf1, &ulen1);
else
ulen1 = 1;
if (u2)
- to_uni_lower(NATIVE_TO_UNI(cb), tmpbuf2, &ulen2);
+ to_uni_fold(NATIVE_TO_UNI(cb), tmpbuf2, &ulen2);
else
ulen2 = 1;
if (ulen1 != ulen2