make corecpan.pl sort case insensitively, so that the module order

is the the same as in Maintainers.pl

1 files changed, 3 insertions, 3 deletions

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index eb77fe18b6..ec8895c033 100644
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -109,7 +109,7 @@ my @labels = ((map $_->[1], @sources), 'CPAN' );
 if ($opt_t) {
     my %changed;
     my @fields;
-    for my $dist (sort keys %results) {
+    for my $dist (sort { lc $a cmp lc $b } keys %results) {
 	for my $file (sort keys %{$results{$dist}}) {
 	    my @versions = @{$results{$dist}{$file}}{@labels};
 	    for (0..$#versions) {
@@ -132,7 +132,7 @@ if ($opt_t) {
     my $field_total;
     $field_total += $_ + 1 for @fields;
 
-    for my $dist (sort keys %results) {
+    for my $dist (sort { lc $a cmp lc $b } keys %results) {
 	next unless $changed{$dist};
 	print " " x $field_total, " $dist\n";
 	for my $file (sort keys %{$results{$dist}}) {
@@ -145,7 +145,7 @@ if ($opt_t) {
     }
 }
 else {
-    for my $dist (sort keys %results) {
+    for my $dist (sort { lc $a cmp lc $b } keys %results) {
 	print "Module $dist...\n";
 	for my $file (sort keys %{$results{$dist}}) {
 	    my ($vcore, $vcpan) = @{$results{$dist}{$file}}{@labels};