From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 16 Jan 2012 20:55:09 +0000 (-0700)
Subject: locale.t: In-line function to its only call
X-Git-Tag: accepted/trunk/20130322.191538~1020
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f07538a5ede83b76aa73e872c7900cfb683089be;p=platform%2Fupstream%2Fperl.git

locale.t: In-line function to its only call

This will be needed in future commits
---

diff --git a/lib/locale.t b/lib/locale.t
index 0312eb3..b8436bf 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.