diff options
| author | Stanislaw Halik <sthalik@misaki.pl> | 2015-12-19 22:13:49 +0100 |
|---|---|---|
| committer | Stanislaw Halik <sthalik@misaki.pl> | 2015-12-19 22:13:49 +0100 |
| commit | 023e2254db1d2e66986fa1a6bd4d032f21236c11 (patch) | |
| tree | 4b3688599a86bbc682cb92e34e59039374c4d91c | |
| parent | f6c32359f0697b3c8caea669d4a766b684b06a9b (diff) | |
contrib/make-csv: perl sort isn't stable, don't ignore case
| -rw-r--r-- | contrib/very-important-source-code/make-csv.pl | 2 |
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'; |