This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: White-space only
authorKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 18:38:19 +0000 (12:38 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 15 Aug 2013 22:49:31 +0000 (16:49 -0600)
Properly indent because of newly formed block

lib/locale.t

index 5803405..91dd64c 100644 (file)
@@ -1020,16 +1020,16 @@ foreach $Locale (@Locale) {
     undef @f;
     $test_names{$locales_test_number} = 'Verify that [:digit:] (if is 10 code points) is a subset of [:xdigit:]';
     if (@Digit_ == 10) {
-    for (map { chr } 0..255) {
-        if ($is_utf8_locale) {
-            use locale ':not_characters';
-            push @f, $_ if /[[:digit:]]/  and ! /[[:xdigit:]]/;
-        }
-        else {
-            push @f, $_ if /[[:digit:]]/  and ! /[[:xdigit:]]/;
+        for (map { chr } 0..255) {
+            if ($is_utf8_locale) {
+                use locale ':not_characters';
+                push @f, $_ if /[[:digit:]]/  and ! /[[:xdigit:]]/;
+            }
+            else {
+                push @f, $_ if /[[:digit:]]/  and ! /[[:xdigit:]]/;
+            }
         }
     }
-    }
     report_multi_result($Locale, $locales_test_number, \@f);
 
     ++$locales_test_number;