This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
numeric.c: White-space only
authorKarl Williamson <khw@cpan.org>
Sun, 1 Jun 2014 22:05:20 +0000 (16:05 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 5 Jun 2014 17:23:00 +0000 (11:23 -0600)
The previous commit added a block around this code, so indent
correspondingly.

numeric.c

index c1da39e..3c2df26 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -531,13 +531,13 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
     if (IN_SOME_LOCALE_FORM) {
         DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED();
         if (PL_numeric_radix_sv) {
-        STRLEN len;
-        const char * const radix = SvPV(PL_numeric_radix_sv, len);
-        if (*sp + len <= send && memEQ(*sp, radix, len)) {
-            *sp += len;
-            RESTORE_LC_NUMERIC();
-            return TRUE; 
-        }
+            STRLEN len;
+            const char * const radix = SvPV(PL_numeric_radix_sv, len);
+            if (*sp + len <= send && memEQ(*sp, radix, len)) {
+                *sp += len;
+                RESTORE_LC_NUMERIC();
+                return TRUE;
+            }
         }
         RESTORE_LC_NUMERIC();
     }