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>
Fri, 13 Dec 2013 04:41:10 +0000 (21:41 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Jan 2014 20:33:04 +0000 (13:33 -0700)
Outdent code removed from a block by the previous commit

locale.c

index 6f8e551..bdc4f26 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -136,10 +136,10 @@ Perl_new_numeric(pTHX_ const char *newnum)
        PL_numeric_name = save_newnum;
     }
 
        PL_numeric_name = save_newnum;
     }
 
-        PL_numeric_standard = ((*save_newnum == 'C' && save_newnum[1] == '\0')
-                                || strEQ(save_newnum, "POSIX"));
-        PL_numeric_local = TRUE;
-        set_numeric_radix();
+    PL_numeric_standard = ((*save_newnum == 'C' && save_newnum[1] == '\0')
+                            || strEQ(save_newnum, "POSIX"));
+    PL_numeric_local = TRUE;
+    set_numeric_radix();
 
 #endif /* USE_LOCALE_NUMERIC */
 }
 
 #endif /* USE_LOCALE_NUMERIC */
 }