This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: simplify conditional
authorKarl Williamson <public@khwilliamson.com>
Mon, 7 Feb 2011 18:28:11 +0000 (11:28 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 14 Feb 2011 15:41:37 +0000 (08:41 -0700)
A previous commit removed some things, so this block can be rearranged

regcomp.c

index 29d5fda..1c2c4df 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9922,15 +9922,11 @@ parseit:
        ANYOF_FLAGS(ret) = ANYOF_UTF8|ANYOF_UNICODE_ALL;
     }
 
-    if (FOLD) {
-
-       /* Folding in the bitmap is taken care of above, but not for locale
-        * (for which we have to wait to see what folding is in effect at
-        * runtime), and for things not in the bitmap.  Set run-time fold flag
-        * for these */
-       if ((LOC || (ANYOF_FLAGS(ret) & ANYOF_NONBITMAP))) {
-           ANYOF_FLAGS(ret) |= ANYOF_LOC_NONBITMAP_FOLD;
-       }
+    /* Folding in the bitmap is taken care of above, but not for locale (for
+     * which we have to wait to see what folding is in effect at runtime), and
+     * for things not in the bitmap.  Set run-time fold flag for these */
+    if (FOLD && (LOC || (ANYOF_FLAGS(ret) & ANYOF_NONBITMAP))) {
+       ANYOF_FLAGS(ret) |= ANYOF_LOC_NONBITMAP_FOLD;
     }
 
     /* A single character class can be "optimized" into an EXACTish node.