[perl.git] branch blead, updated. v5.22.0-89-g0be47ec

[James Keenan]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/0be47eca054b03c9626158a6e1028a802d03b531?hp=302ef3d4cab93d9ddf2bebde7e0952908332b8b2>

- Log -----------------------------------------------------------------
commit 0be47eca054b03c9626158a6e1028a802d03b531
Author: Thomas Sibley <tsib...@cpan.org>
Date:   Sun Feb 15 11:25:18 2015 -0800

    Porting/checkAUTHORS.pl: Sort author names using Unicode collation rules
    
    This ensures that authors like Ævar Arnfjörð Bjarmason sort with the As
    in perldelta ACKNOWLEDGEMENTS sections.  Previously Ævar appeared at the
    end.
-----------------------------------------------------------------------

Summary of changes:
 Porting/checkAUTHORS.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index c164933..0f9a8f6 100755
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -3,6 +3,7 @@ use strict;
 my ($committer, $patch, $author);
 use utf8;
 use Getopt::Long;
+use Unicode::Collate;
 use Text::Wrap;
 $Text::Wrap::columns = 80;
 
@@ -85,9 +86,9 @@ EOS
 sub list_authors {
     my ($patchers, $authors) = @_;
     binmode(STDOUT, ":utf8");
-    print wrap '', '', join(', ', sort { lc $a cmp lc $b }
+    print wrap '', '', join(', ', Unicode::Collate->new(level => 1)->sort(
                       map { $authors->{$_} }
-                      keys %$patchers) . ".\n";
+                      keys %$patchers)) . ".\n";
 }
 
 sub parse_commits_from_stdin {

--
Perl5 Master Repository