From f8f84bd6327e56418cc3e4bb56d8d01f3012bfae Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sun, 15 Jan 2012 17:16:53 -0700
Subject: [PATCH] locale.t: Remove unset variables.

These were currently useless.
---
 lib/locale.t | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/lib/locale.t b/lib/locale.t
index d88aed6..bc16051 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -337,9 +337,6 @@ my @Locale;
 my $Locale;
 my @Alnum_;
 
-my @utf8locale;
-my %utf8skip;
-
 sub getalnum_ {
     sort grep /\w/, map { chr } 0..255
 }
@@ -487,7 +484,6 @@ my %Problem;
 my %Okay;
 my %Testing;
 my @Neoalpha;
-my %Neoalpha;
 
 sub tryneoalpha {
     my ($Locale, $i, $test) = @_;
@@ -550,7 +546,6 @@ foreach $Locale (@Locale) {
 	@Neoalpha = ();
 	for (keys %UPPER, keys %lower) {
 	    push(@Neoalpha, $_) if (/\W/);
-	    $Neoalpha{$_} = $_;
 	}
     }
 
@@ -918,17 +913,6 @@ if ($didwarn) {
     } else {
         warn "# None of your locales were broken.\n";
     }
-
-    if (@utf8locale) {
-        my $S = join(" ", @utf8locale);
-        $S =~ s/(.{50,60}) /$1\n#\t/g;
-    
-        warn "#\n# The following locales\n#\n",
-             "#\t", $S, "\n#\n",
-             "# were skipped for the tests ",
-             join(" ", sort {$a<=>$b} keys %utf8skip), "\n",
-            "# because UTF-8 and locales do not work together in Perl.\n#\n";
-    }
 }
 
 sub last_locales { 117 }
-- 
2.7.4