patch

# Characters with different values returned from ucfirst if lc is performed first.
# line 1: original character
# line 2: ucfirst
# line 3: lc
# line 4: ucfirst lc
$ perl -C -M'charnames()' -E'say map { "$_ <" . join(", ", map { sprintf "U+%04X %s", ord, charnames::viacode(ord) } split //) . ">\n" } $_, ucfirst, lc, ucfirst lc for grep { ucfirst ne ucfirst lc } map { chr } 0..0x10FFFF'

İ <U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE>
İ <U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE>
i̇ <U+0069 LATIN SMALL LETTER I, U+0307 COMBINING DOT ABOVE>