diff options
| author | Karl Williamson <khw@cpan.org> | 2014-07-17 10:59:19 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-01-21 22:47:29 -0700 |
| commit | 1c8c342800b7a2711d2a5dd499c4a58af8547b93 (patch) | |
| tree | 59f47c119236a7d350d9524ffb2f5239270925fe /regen/mk_invlists.pl | |
| parent | 47d531243093eed0962254b7ba54063dc0cf8e62 (diff) | |
| download | perl-1c8c342800b7a2711d2a5dd499c4a58af8547b93.tar.gz | |
regen/mk_invlists.pl: output sorted
This will make it easier to see differences in future commits
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 53 |
1 files changed, 28 insertions, 25 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 4e3160f276..5d15690a1c 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -171,31 +171,34 @@ for my $charset (get_supported_code_pages()) { print $out_fh "\n" . get_conditional_compile_line_start($charset); my @a2n = @{get_a2n($charset)}; - for my $prop (qw( - ASCII - Cased - VertSpace - XPerlSpace - XPosixAlnum - XPosixAlpha - XPosixBlank - XPosixCntrl - XPosixDigit - XPosixGraph - XPosixLower - XPosixPrint - XPosixPunct - XPosixSpace - XPosixUpper - XPosixWord - XPosixXDigit - _Perl_Any_Folds - &NonL1_Perl_Non_Final_Folds - _Perl_Folds_To_Multi_Char - &UpperLatin1 - _Perl_IDStart - _Perl_IDCont - ) + # Ignore non-alpha in sort + for my $prop (sort { lc ($a =~ s/[[:^alpha:]]//gr) + cmp lc ($b =~ s/[[:^alpha:]]//gr) + } qw( + ASCII + Cased + VertSpace + XPerlSpace + XPosixAlnum + XPosixAlpha + XPosixBlank + XPosixCntrl + XPosixDigit + XPosixGraph + XPosixLower + XPosixPrint + XPosixPunct + XPosixSpace + XPosixUpper + XPosixWord + XPosixXDigit + _Perl_Any_Folds + &NonL1_Perl_Non_Final_Folds + _Perl_Folds_To_Multi_Char + &UpperLatin1 + _Perl_IDStart + _Perl_IDCont + ) ) { # For the Latin1 properties, we change to use the eXtended version of the |