This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h, locale.c: White space only
authorKarl Williamson <public@khwilliamson.com>
Thu, 27 Jun 2013 20:01:01 +0000 (14:01 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 6 Jul 2013 04:29:59 +0000 (22:29 -0600)
This indents some nested #if's to clarify the program structure.

locale.c
perl.h

index 32e47eb..bb0baf5 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -280,7 +280,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
 
     bool done = FALSE;
 
-#ifdef LC_ALL
+#   ifdef LC_ALL
     if (lang) {
        if (setlocale(LC_ALL, ""))
            done = TRUE;
@@ -288,7 +288,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
            setlocale_failure = TRUE;
     }
     if (!setlocale_failure) {
-#ifdef USE_LOCALE_CTYPE
+#       ifdef USE_LOCALE_CTYPE
        Safefree(curctype);
        if (! (curctype =
               setlocale(LC_CTYPE,
@@ -297,8 +297,8 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
            setlocale_failure = TRUE;
        else
            curctype = savepv(curctype);
-#endif /* USE_LOCALE_CTYPE */
-#ifdef USE_LOCALE_COLLATE
+#       endif /* USE_LOCALE_CTYPE */
+#       ifdef USE_LOCALE_COLLATE
        Safefree(curcoll);
        if (! (curcoll =
               setlocale(LC_COLLATE,
@@ -307,8 +307,8 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
            setlocale_failure = TRUE;
        else
            curcoll = savepv(curcoll);
-#endif /* USE_LOCALE_COLLATE */
-#ifdef USE_LOCALE_NUMERIC
+#       endif /* USE_LOCALE_COLLATE */
+#       ifdef USE_LOCALE_NUMERIC
        Safefree(curnum);
        if (! (curnum =
               setlocale(LC_NUMERIC,
@@ -317,10 +317,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
            setlocale_failure = TRUE;
        else
            curnum = savepv(curnum);
-#endif /* USE_LOCALE_NUMERIC */
+#       endif /* USE_LOCALE_NUMERIC */
     }
 
-#endif /* LC_ALL */
+#   endif /* LC_ALL */
 
 #endif /* !LOCALE_ENVIRON_REQUIRED */
 
diff --git a/perl.h b/perl.h
index 0593461..e76d0ba 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1227,16 +1227,16 @@ EXTERN_C char *crypt(const char *, const char *);
 #endif
 
 #ifdef HAS_STRERROR
-#ifndef DONT_DECLARE_STD
+#   ifndef DONT_DECLARE_STD
 #       ifdef VMS
        char *strerror (int,...);
 #       else
        char *strerror (int);
 #       endif
-#endif
-#       ifndef Strerror
-#           define Strerror strerror
-#       endif
+#    endif
+#    ifndef Strerror
+#       define Strerror strerror
+#    endif
 #else
 #    ifdef HAS_SYS_ERRLIST
        extern int sys_nerr;