diff options
| author | B. Watson <yalhcru@gmail.com> | 2021-04-04 14:04:41 -0400 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2021-04-04 14:04:41 -0400 |
| commit | ebc8bc84498e690b46b1dfc74180838eec53353e (patch) | |
| tree | 41430c185e4156e7094468d370de5ea310ddf654 /messages.pl | |
| parent | 6662684ba64e6aed244fb4e0019ac02e1196b17f (diff) | |
| download | taipan-ebc8bc84498e690b46b1dfc74180838eec53353e.tar.gz | |
Reproducible build
Diffstat (limited to 'messages.pl')
| -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; } |