From 2061eafe566391878160b79c3047ace0a2285a07 Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Sat, 16 May 2009 17:02:55 +0100
Subject: make corecpan.pl sort case insensitively, so that the module order is
 the the same as in Maintainers.pl

---
 Porting/corecpan.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Porting/corecpan.pl')

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};
-- 
cgit v1.2.1