From 023e2254db1d2e66986fa1a6bd4d032f21236c11 Mon Sep 17 00:00:00 2001
From: Stanislaw Halik <sthalik@misaki.pl>
Date: Sat, 19 Dec 2015 22:13:49 +0100
Subject: contrib/make-csv: perl sort isn't stable, don't ignore case

---
 contrib/very-important-source-code/make-csv.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/very-important-source-code/make-csv.pl b/contrib/very-important-source-code/make-csv.pl
index ee60364e..fcac9369 100644
--- a/contrib/very-important-source-code/make-csv.pl
+++ b/contrib/very-important-source-code/make-csv.pl
@@ -58,7 +58,7 @@ sub merge {
 		}
 	}
 	print "No;Game Name;Game protocol;Supported since;Verified;By;INTERNATIONAL_ID;FTN_ID\n";
-	for (sort { lc($a->{name}) cmp lc($b->{name}) } values %game_hash) {
+	for (sort { $a->{name} cmp $b->{name} } values %game_hash) {
 		my $g = {%$_};
 		if (!defined $g->{key}) {
 			$g->{key} = (sprintf "%04X", $g->{no}) . (join"", map { sprintf "%02X", int rand 256 } 0 .. 7) . '00';
-- 
cgit v1.2.3