This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: White-space only
authorKarl Williamson <khw@cpan.org>
Mon, 5 Mar 2018 18:12:14 +0000 (11:12 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 5 Mar 2018 18:22:14 +0000 (11:22 -0700)
Properly indent preprocessor directives

regexec.c

index 488bbd8..8b6642c 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -587,17 +587,17 @@ S_find_next_ascii(char * s, const char * send, const bool utf8_target)
             PERL_UINTMAX_T complemented = ~ * (PERL_UINTMAX_T *) s;
             if (complemented & PERL_VARIANTS_WORD_MASK)  {
 
-#if   BYTEORDER == 0x1234 || BYTEORDER == 0x12345678    \
-   || BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
+#  if   BYTEORDER == 0x1234 || BYTEORDER == 0x12345678    \
+     || BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
 
                 s += _variant_byte_number(complemented);
                 return s;
 
-#else   /* If weird byte order, drop into next loop to do byte-at-a-time
+#  else   /* If weird byte order, drop into next loop to do byte-at-a-time
            checks. */
 
                 break;
-#endif
+#  endif
             }
 
             s += PERL_WORDSIZE;