summaryrefslogtreecommitdiffhomepage
path: root/contrib/very-important-source-code/make-csv.pl
diff options
context:
space:
mode:
authorStanislaw Halik <sthalik@misaki.pl>2015-12-19 22:13:49 +0100
committerStanislaw Halik <sthalik@misaki.pl>2015-12-19 22:13:49 +0100
commit023e2254db1d2e66986fa1a6bd4d032f21236c11 (patch)
tree4b3688599a86bbc682cb92e34e59039374c4d91c /contrib/very-important-source-code/make-csv.pl
parentf6c32359f0697b3c8caea669d4a766b684b06a9b (diff)
contrib/make-csv: perl sort isn't stable, don't ignore case
Diffstat (limited to 'contrib/very-important-source-code/make-csv.pl')
-rw-r--r--contrib/very-important-source-code/make-csv.pl2
1 files changed, 1 insertions, 1 deletions
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';