From 9445c837d81bc41fdd377604e6231fcd33cbb318 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 15 Jan 2012 17:30:55 -0700
Subject: locale.t: Comments, white-space only

---
 lib/locale.t | 8 ++++----
 1 file 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) {
-- 
cgit v1.2.1