diff options
| -rw-r--r-- | lib/locale.t | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/locale.t b/lib/locale.t index 0312eb362f..b8436bfa92 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -337,10 +337,6 @@ my @Locale; my $Locale; my @Alnum_; -sub getalnum_ { - sort grep /\w/, map { chr } 0..255 -} - sub trylocale { my $locale = shift; return if grep { $locale eq $_ } @Locale; @@ -510,7 +506,8 @@ foreach $Locale (@Locale) { next; } - @Alnum_ = getalnum_(); + @Alnum_ = sort grep /\w/, map { chr } 0..255; + debug "# w = ", join("",@Alnum_), "\n"; # Sieve the uppercase and the lowercase. |