diff options
| author | Abigail <abigail@abigail.be> | 2020-12-01 10:04:20 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-12-01 10:04:20 +0100 |
| commit | b76b7e5fb504e71cf3957764195d3467ce13e7ec (patch) | |
| tree | fac54b28cdf8f6406602b0784bd20611b8702943 /challenge-089 | |
| parent | 8beae9e66c5966153d42a7df43f50d39f15dfc6f (diff) | |
| download | perlweeklychallenge-club-b76b7e5fb504e71cf3957764195d3467ce13e7ec.tar.gz perlweeklychallenge-club-b76b7e5fb504e71cf3957764195d3467ce13e7ec.tar.bz2 perlweeklychallenge-club-b76b7e5fb504e71cf3957764195d3467ce13e7ec.zip | |
Better sorting of languages in test program.
Diffstat (limited to 'challenge-089')
| -rwxr-xr-x | challenge-089/abigail/test.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-089/abigail/test.pl b/challenge-089/abigail/test.pl index c345360abd..37c5b7d046 100755 --- a/challenge-089/abigail/test.pl +++ b/challenge-089/abigail/test.pl @@ -103,7 +103,7 @@ my %languages = ( my $perl_exe = $languages {Perl} {exe}; -@languages = sort keys %languages if !@languages; +@languages = sort {lc $a cmp lc $b} keys %languages if !@languages; my @challenges = @ARGV ? @ARGV : (1, 2); foreach my $challenge (@challenges) { |