Re: Bug with locale

[p5pRT]

Migrated from rt.perl.org#965 (status was 'resolved')

Searchable as RT965$

[p5pRT]

From @jhi

Jan Starzynski writes​:

Hello,

there seems to be a bug then using locales. The following script
(sorting strings case-independently) demonstrates this​:

****************************************************************
#!/usr#!/usr/bin/perl -w

use locale;

$, = "\t";
$\ = "\n";
@​list = qw(perltk perl PERLTK PERL );

print "original​:", @​list;
print "correct​: ", sort NoCaseWithCopy @​list;
print "wrong​: ", sort NoCaseWithoutCopy @​list;

sub NoCaseWithCopy {
my $aa = lc $a;
my $bb = lc $b;
$aa cmp $bb || $a cmp $b
}

sub NoCaseWithoutCopy {
lc($a) cmp lc($b) || $a cmp $b
}
****************************************************************

The output is as follows​:
****************************************************************
original​: perltk perl PERLTK PERL
correct​: PERL perl PERLTK perltk
wrong​: PERL PERLTK perl perltk
****************************************************************

When the 'use locale'-line is absent everything works fine.

I'm using a Linux 2.0.36 machine, Perl was compiled with gcc 2.7.2.2. I
tried the Perl-Versions 5.00404, 5.000 and 5.00503 and all have this
bug. The value of $ENV{LANG} seems to have no influence on the results.

--
Live long and
prosper!
Your mind understands what you have been taught; Jan Starzynski
your heart, what is true. jan@​planet.de
No advertising!

--
$jhi++; # http​://www.iki.fi/jhi/
  # There is this special biologist word we use for 'stable'.
  # It is 'dead'. -- Jack Cohen