diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-01-15 17:30:55 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:53 -0700 |
commit | 9445c837d81bc41fdd377604e6231fcd33cbb318 (patch) | |
tree | 7edcda68a973cb2da206c973a6390203bcc374d1 | |
parent | f8f84bd6327e56418cc3e4bb56d8d01f3012bfae (diff) | |
download | perl-9445c837d81bc41fdd377604e6231fcd33cbb318.tar.gz |
locale.t: Comments, white-space only
-rw-r--r-- | lib/locale.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/locale.t b/lib/locale.t index bc1605113a..b3c4d52d07 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -483,7 +483,7 @@ for ( @Locale ) { my %Problem; my %Okay; my %Testing; -my @Neoalpha; +my @Neoalpha; # Alnums that aren't in the C locale. sub tryneoalpha { my ($Locale, $i, $test) = @_; @@ -538,9 +538,9 @@ foreach $Locale (@Locale) { debug "# lower = ", join("", sort keys %lower ), "\n"; debug "# BoThCaSe = ", join("", sort keys %BoThCaSe), "\n"; - # Find the alphabets that are not alphabets in the default locale. + { # Find the alphabetic characters that are not considered alphabetics + # in the default (C) locale. - { no locale; @Neoalpha = (); @@ -887,7 +887,7 @@ if ($didwarn) { $p++ if $Problem{$t}{$l}; } push @s, $l if $p == 0; - push @F, $l unless $p == 0; + push @F, $l unless $p == 0; } if (@s) { |