This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.t: Calculate locale values AFTER setting the locale
[perl5.git] / lib / locale.t
index 99b3a15..d88aed6 100644 (file)
@@ -501,8 +501,6 @@ sub tryneoalpha {
 
 foreach $Locale (@Locale) {
     debug "# Locale = $Locale\n";
-    @Alnum_ = getalnum_();
-    debug "# w = ", join("",@Alnum_), "\n";
 
     unless (setlocale(LC_ALL, $Locale)) {
        foreach (99..103) {
@@ -511,6 +509,9 @@ foreach $Locale (@Locale) {
        next;
     }
 
+    @Alnum_ = getalnum_();
+    debug "# w = ", join("",@Alnum_), "\n";
+
     # Sieve the uppercase and the lowercase.
     
     my %UPPER = ();