Sort key map for idempotent save file

Signed-off-by: martin f. krafft <redacted>

diff --git a/scripts/chankeys.pl b/scripts/chankeys.pl
index 0a865a481fcf08a4d2f3a5c015c874bc1eaae799..b868d79e8ce6506ecddf09a865bc032eb8f368e2 100644 (file)
--- a/scripts/chankeys.pl
+++ b/scripts/chankeys.pl
@@ -322,7 +322,8 @@ sub save_mappings {
 ; item keys
 
 EOF
-       while (my ($name, $keys) = each %itemmap) {
+       foreach my $name (sort keys(%itemmap)) {
+               my $keys = $itemmap{$name};
                print FH "$name\t$keys\n";
        }
        print FH <<"EOF";