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(-)
(limited to 'contrib/very-important-source-code')
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