Bug in our ru_RU.KOI8-R locale (with patch)?

Denis Antrushin DAntrushin at mail.ru
Wed Dec 1 06:13:49 PST 2004


Alexander Leidinger wrote:
> Hi,
> 
> I got a report that our ru_RU.KOI8-R locale seems to be broken. Attached
> is a test program (test.pl, tested with perl 5.8.2) and some test input
> (test.txt) which is supposed to show the problem. I can't read any
> cyrillic language, so I can't really confirm if the attached patch is the
> right fix.
First of all, test.txt is in CP1251 encoding, not KOI8-R ;-)
Second, patch is plain wrong -- it replaces KOI8-R character codes with
CP1251 ones.

> If you run the test program you should see something like this (strange
> looking text maybe because of the webmailer I use):
> ---snip---
> Match small (RegEx with i flag): 0
> Match small (RegEx without i flag): 8
> Match for normal (RegEx with i flag): 17
> Match for normal (RegEx without i flag): 9
> 
> Case - Check for 'яѓјъшэ'
> lc() => яѓјъшэ
> uc() => ЯгиЪШЭ
> lcfirst() => яѓјъшэ
> ucfirst() => Яѓјъшэ
> 
> Case - Check for 'Яѓјъшэ'
> lc() => яѓјъшэ
> uc() => ЯгиЪШЭ
> lcfirst() => яѓјъшэ
> ucfirst() => Яѓјъшэ
> ---snip---
> 
> I'm told the "Case - Check" parts are correct with the patch, but not
> without it (lc() -> lower case the entire string; uc() -> upper case the
> entire string; lcfirst() -> lower case the first character; ...). Can
> someone please confirm this?
This is what test gives me (transliterated to ascii):

Case - Check for 'pushkin'
lc() => pushkin
uc() => PUSHKIN
lcfirst() => pushkin
ucfirst() => Pushkin

Case - Check for 'Pushkin'
lc() => pushkin
uc() => PUSHKIN
lcfirst() => pushkin
ucfirst() => Pushkin

It seems correct for me...


> If this is correct we've solved only a part of the problem. The other
> part seems to be related to LC_COLLATE. "Match small" with the i flag
> (case insensitive matching) shouldn't print 0 when "Match normal" with
> the i flag doesn't print 0. Any ideas how to solve this?
> 
> If the patch isn't correct we still have a bug somwhere (please CC
> perl at freebsd.org then). Why isn't perl able to do a case insensitive
> match in the ru_RU.KOI8-R locale?
> 
> BTW.: this affects 4.x (problem noticed here), 5.x and -current (I've
> tested the patch here).
> 
> Bye,
> Alexander.
> 


More information about the freebsd-current mailing list