This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: White-space only
authorKarl Williamson <khw@cpan.org>
Thu, 15 Feb 2018 05:39:47 +0000 (22:39 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 18 Feb 2018 18:20:32 +0000 (11:20 -0700)
This indents properly because of changes in the previous commit

locale.c

index b6ad2d2..37a350f 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -645,12 +645,12 @@ S_new_ctype(pTHX_ const char *newctype)
 
         for (i = 0; i < 256; i++) {
             if (! PL_in_utf8_CTYPE_locale) {
-            if (isupper(i))
-                PL_fold_locale[i] = (U8) tolower(i);
-            else if (islower(i))
-                PL_fold_locale[i] = (U8) toupper(i);
-            else
-                PL_fold_locale[i] = (U8) i;
+                if (isupper(i))
+                    PL_fold_locale[i] = (U8) tolower(i);
+                else if (islower(i))
+                    PL_fold_locale[i] = (U8) toupper(i);
+                else
+                    PL_fold_locale[i] = (U8) i;
             }
 
             /* If checking for locale problems, see if the native ASCII-range