keywords: sort case insensitive

[platform/upstream/curl.git] / tests / keywords.pl

diff --git a/tests/keywords.pl b/tests/keywords.pl
index 43f8e2b..c61df77 100755 (executable)
--- a/tests/keywords.pl
+++ b/tests/keywords.pl
@@ -121,7 +121,7 @@ sub show {
 }
 
 # sort alphabetically 
-my @mtest = reverse sort { $b cmp $a } keys %k;
+my @mtest = reverse sort { lc($b) cmp lc($a) } keys %k;
 
 print <<TOP
 <table><tr><th>Num</th><th>Keyword</th><th>Test Cases</th></tr>