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>
Mon, 7 Jul 2014 20:42:11 +0000 (14:42 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 9 Jul 2014 14:04:53 +0000 (08:04 -0600)
Outdent because the previous commit removed the enclosing block.

locale.c

index 9388a25..57a553d 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -217,10 +217,10 @@ Perl_set_numeric_standard(pTHX)
      * to our records (which could be wrong if some XS code has changed the
      * locale behind our back) */
 
      * to our records (which could be wrong if some XS code has changed the
      * locale behind our back) */
 
-       setlocale(LC_NUMERIC, "C");
-       PL_numeric_standard = TRUE;
-       PL_numeric_local = isNAME_C_OR_POSIX(PL_numeric_name);
-       set_numeric_radix();
+    setlocale(LC_NUMERIC, "C");
+    PL_numeric_standard = TRUE;
+    PL_numeric_local = isNAME_C_OR_POSIX(PL_numeric_name);
+    set_numeric_radix();
     DEBUG_L(PerlIO_printf(Perl_debug_log,
                           "Underlying LC_NUMERIC locale now is C\n"));
 
     DEBUG_L(PerlIO_printf(Perl_debug_log,
                           "Underlying LC_NUMERIC locale now is C\n"));
 
@@ -236,10 +236,11 @@ Perl_set_numeric_local(pTHX)
      * calling this directly.  The macro avoids calling this routine if
      * toggling isn't necessary according to our records (which could be wrong
      * if some XS code has changed the locale behind our back) */
      * calling this directly.  The macro avoids calling this routine if
      * toggling isn't necessary according to our records (which could be wrong
      * if some XS code has changed the locale behind our back) */
-       setlocale(LC_NUMERIC, PL_numeric_name);
-       PL_numeric_standard = isNAME_C_OR_POSIX(PL_numeric_name);
-       PL_numeric_local = TRUE;
-       set_numeric_radix();
+
+    setlocale(LC_NUMERIC, PL_numeric_name);
+    PL_numeric_standard = isNAME_C_OR_POSIX(PL_numeric_name);
+    PL_numeric_local = TRUE;
+    set_numeric_radix();
     DEBUG_L(PerlIO_printf(Perl_debug_log,
                           "Underlying LC_NUMERIC locale now is %s\n",
                           PL_numeric_name));
     DEBUG_L(PerlIO_printf(Perl_debug_log,
                           "Underlying LC_NUMERIC locale now is %s\n",
                           PL_numeric_name));