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, 9 Feb 2015 06:04:18 +0000 (23:04 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 20 Feb 2015 05:55:01 +0000 (22:55 -0700)
Add indentation, as the previous commit added a switch{} around these.

regexec.c

index 95dae10..4819b89 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4910,14 +4910,13 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
               bound_utf8:
                 switch((bound_type) FLAGS(scan)) {
                     case TRADITIONAL_BOUND:
-                ln = (locinput == reginfo->strbeg)
-                     ? isWORDCHAR_L1('\n')
-                     : isWORDCHAR_utf8(reghop3((U8*)locinput, -1,
-                                                        (U8*)(reginfo->strbeg)));
-                n = (NEXTCHR_IS_EOS)
-                    ? isWORDCHAR_L1('\n')
-                    : isWORDCHAR_utf8((U8*)locinput);
-
+                        ln = (locinput == reginfo->strbeg)
+                             ? isWORDCHAR_L1('\n')
+                             : isWORDCHAR_utf8(reghop3((U8*)locinput, -1,
+                                                                (U8*)(reginfo->strbeg)));
+                        n = (NEXTCHR_IS_EOS)
+                            ? isWORDCHAR_L1('\n')
+                            : isWORDCHAR_utf8((U8*)locinput);
                         match = ln != n;
                         break;
                     case GCB_BOUND:
@@ -4942,12 +4941,12 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
            else {  /* Not utf8 target */
                 switch((bound_type) FLAGS(scan)) {
                     case TRADITIONAL_BOUND:
-                ln = (locinput == reginfo->strbeg)
-                    ? isWORDCHAR_L1('\n')
-                    : isWORDCHAR_L1(UCHARAT(locinput - 1));
-                n = (NEXTCHR_IS_EOS)
-                    ? isWORDCHAR_L1('\n')
-                    : isWORDCHAR_L1(nextchr);
+                        ln = (locinput == reginfo->strbeg)
+                            ? isWORDCHAR_L1('\n')
+                            : isWORDCHAR_L1(UCHARAT(locinput - 1));
+                        n = (NEXTCHR_IS_EOS)
+                            ? isWORDCHAR_L1('\n')
+                            : isWORDCHAR_L1(nextchr);
                         match = ln != n;
                         break;