diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-30 11:25:56 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-30 19:28:11 -0700 |
| commit | f78d9f29e9827414a3e893d0f3558ed5b75b7d13 (patch) | |
| tree | 7acc46a7af9a1220e8d56121317d1b68e0643383 /lib/locale.t | |
| parent | faf0c2480e7d74b6a53fd3db35fa0c21ab4bce55 (diff) | |
| download | perl-f78d9f29e9827414a3e893d0f3558ed5b75b7d13.tar.gz | |
locale.t: process in sorted order
for easier debugging, when debugging
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/locale.t b/lib/locale.t index e188dd23a4..46f7effd0c 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -1148,7 +1148,7 @@ foreach $Locale (@Locale) { my @f = (); ++$locales_test_number; $test_names{$locales_test_number} = 'Verify case insensitive matching works'; - foreach my $x (keys %UPPER) { + foreach my $x (sort keys %UPPER) { if (! $is_utf8_locale) { my $y = lc $x; next unless uc $y eq $x; @@ -1201,7 +1201,7 @@ foreach $Locale (@Locale) { } } - foreach my $x (keys %lower) { + foreach my $x (sort keys %lower) { if (! $is_utf8_locale) { my $y = uc $x; next unless lc $y eq $x; |