aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--messages.pl2
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;
}