diff options
-rw-r--r-- | messages.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/messages.pl b/messages.pl index 1b81767..574d439 100644 --- a/messages.pl +++ b/messages.pl @@ -51,7 +51,7 @@ while(<DATA>) { $total_in += (1 + length); my $dict_used = 0; - for my $dk (sort { length $b <=> length $a } keys %dictionary) { + for my $dk (sort { length $b <=> length $a || $a cmp $b } keys %dictionary) { if(s/$dk/$dictionary{$dk}/g) { $dict_used = 1; } |