Is Sort:Naturally a Little Off?

[Shawn H Corey]

I was testing different sort routines and I think I stopped a bug in Sort::Naturally (see attached script). It's output is:

Is the Ä out of place for the Sort::Naturally line?

unsorted              : 4 A X i 1 x 10 a B ä y z į C Ä b c Į Y Z än and ÄND And Any ant Äm Äs no locale,  perl      : 1 10 4 A And Any B C X Y Z a and ant b c i x y z Ä ÄND Äm Äs ä än Į į no locale,  naturally : 1 4 10 A a ä Äm And and Ä än ÄND ant Any Äs B b C c i Į į X x Y y Z z use locale, perl      : 1 10 4 A a Ä ä Äm än And and ÄND ant Any Äs B b C c i Į į X x Y y Z z use locale, naturally : 1 4 10 A a ä Äm And and Ä än ÄND ant Any Äs B b C c i Į į X x Y y Z z use locale, perl num  : 1 4 10 A a Ä ä Äm än And and ÄND ant Any Äs B b C c i Į į X x Y y Z z

sort-test.pl
Description: Perl program