generate parser enums stably: additionally sort on name

diff --git a/generate-command-parser.pl b/generate-command-parser.pl
index f40bb390100b1ff3c26a748e4c84473a54e0317d..c0a9a4d42755ea9c11b6c983fa216f53fc849459 100755 (executable)
--- a/generate-command-parser.pl
+++ b/generate-command-parser.pl
@@ -112,7 +112,7 @@ for my $line (@lines) {
 # We sort descendingly by length to be able to replace occurences of the state
 # name even when one state’s name is included in another one’s (like FOR_WINDOW
 # is in FOR_WINDOW_COMMAND).
 # We sort descendingly by length to be able to replace occurences of the state
 # name even when one state’s name is included in another one’s (like FOR_WINDOW
 # is in FOR_WINDOW_COMMAND).

-my @keys = sort { length($b) <=> length($a) } keys %states;
+my @keys = sort { (length($b) <=> length($a)) or ($a cmp $b) } keys %states;

 
 open(my $enumfh, '>', "GENERATED_${prefix}_enums.h");
 
 
 open(my $enumfh, '>', "GENERATED_${prefix}_enums.h");