diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-01-16 13:54:25 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:53 -0700 |
commit | 1f5852c969db5b977086aaf398b760ea030b021f (patch) | |
tree | 8afbf8022b98f1a9688eae0c9ee36c3c7b886454 /lib/locale.t | |
parent | c08acc4c769f829d6eba53a42991197d2418ee37 (diff) | |
download | perl-1f5852c969db5b977086aaf398b760ea030b021f.tar.gz |
locale.t: White-space, comment-only changes
To catch up with previous changes.
Diffstat (limited to 'lib/locale.t')
-rw-r--r-- | lib/locale.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/locale.t b/lib/locale.t index 893c43dcdc..0312eb362f 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -949,9 +949,11 @@ if ($didwarn) { $p++; } else { - foreach my $t ($first_locales_test_number..$final_locales_test_number) { - $p++ if $Problem{$t}{$l}; - } + foreach my $t + ($first_locales_test_number..$final_locales_test_number) + { + $p++ if $Problem{$t}{$l}; + } } push @s, $l if $p == 0; push @F, $l unless $p == 0; @@ -985,8 +987,8 @@ if ($didwarn) { $test_num = $final_locales_test_number; # Test that tainting and case changing works on utf8 strings. These tests are -# placed last to avoid disturbing the hard-coded test numbers above this in -# this file. +# placed last to avoid disturbing the hard-coded test numbers that existed at +# the time these were added above this in this file. setlocale(LC_ALL, "C"); { use locale; |