This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White space only
authorKarl Williamson <public@khwilliamson.com>
Sun, 16 Oct 2011 18:26:47 +0000 (12:26 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 18 Oct 2011 03:52:16 +0000 (21:52 -0600)
Indent the newly formed block, and reflow comments for narrower
available space.

regcomp.c

index 40d08e9..01334f9 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10711,15 +10711,15 @@ parseit:
            value = toLOWER_LATIN1(value);
            if (AT_LEAST_UNI_SEMANTICS || !isASCII(value)) {
 
            value = toLOWER_LATIN1(value);
            if (AT_LEAST_UNI_SEMANTICS || !isASCII(value)) {
 
-           /* To join adjacent nodes, they must be the exact EXACTish type.
-            * Try to use the most likely type, by using EXACTFU if the regex
-            * calls for them, or is required because the character is
-            * non-ASCII */
-           op = EXACTFU;
-       }
-       else {    /* Otherwise, more likely to be EXACTF type */
-           op = EXACTF;
-       }
+               /* To join adjacent nodes, they must be the exact EXACTish
+                * type.  Try to use the most likely type, by using EXACTFU if
+                * the regex calls for them, or is required because the
+                * character is non-ASCII */
+               op = EXACTFU;
+           }
+           else {    /* Otherwise, more likely to be EXACTF type */
+               op = EXACTF;
+           }
        }
 
        ret = reg_node(pRExC_state, op);
        }
 
        ret = reg_node(pRExC_state, op);