diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-16 13:55:09 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:54 -0700 |
| commit | f07538a5ede83b76aa73e872c7900cfb683089be (patch) | |
| tree | 5619f20db0fbf33dc5aface7c2e326de108c2b5f /lib/locale.t | |
| parent | 1f5852c969db5b977086aaf398b760ea030b021f (diff) | |
| download | perl-f07538a5ede83b76aa73e872c7900cfb683089be.tar.gz | |
locale.t: In-line function to its only call
This will be needed in future commits
Diffstat (limited to 'lib/locale.t')
| -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. |