diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-30 01:09:17 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-30 01:09:17 +0000 |
commit | 596717cee028c8ad9e0b419ef9143521a52d81b0 (patch) | |
tree | 8e90f8591c987c3c68b96eb7e91e0eee2f5aaeda /utf8.c | |
parent | 84afefe65e567dcd9633a77e26cb0a95826679dd (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |