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 <public@khwilliamson.com>
Tue, 21 Jan 2014 23:51:56 +0000 (16:51 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 22 Jan 2014 18:45:59 +0000 (11:45 -0700)
This indents because the previous commit added a block

locale.c

index 7057127..1c92721 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -771,22 +771,22 @@ S_is_cur_LC_category_utf8(pTHX_ int category)
 #else
 #   if defined(HAS_NL_LANGINFO) && defined(CODESET)
         {
-        char *codeset = savepv(nl_langinfo(CODESET));
-        if (codeset) {
+            char *codeset = savepv(nl_langinfo(CODESET));
+            if (codeset) {
 
-            /* If we switched LC_CTYPE, switch back */
-            if (save_ctype_locale) {
-                setlocale(LC_CTYPE, save_ctype_locale);
-                Safefree(save_ctype_locale);
-            }
+                /* If we switched LC_CTYPE, switch back */
+                if (save_ctype_locale) {
+                    setlocale(LC_CTYPE, save_ctype_locale);
+                    Safefree(save_ctype_locale);
+                }
 
-            is_utf8 = foldEQ(codeset, STR_WITH_LEN("UTF-8"))
-                      || foldEQ(codeset, STR_WITH_LEN("UTF8"));
+                is_utf8 = foldEQ(codeset, STR_WITH_LEN("UTF-8"))
+                        || foldEQ(codeset, STR_WITH_LEN("UTF8"));
 
-            Safefree(codeset);
-            Safefree(save_input_locale);
-            return is_utf8;
-        }
+                Safefree(codeset);
+                Safefree(save_input_locale);
+                return is_utf8;
+            }
         }
 
 #   endif