This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White-space, comment only
authorKarl Williamson <public@khwilliamson.com>
Tue, 11 Dec 2012 19:06:47 +0000 (12:06 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 22 Dec 2012 18:11:26 +0000 (11:11 -0700)
regcomp.c

index d7a289c..7e82506 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1542,7 +1542,7 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs
 #endif
 
     switch (flags) {
-       case EXACT: break;
+        case EXACT: break;
        case EXACTFA:
         case EXACTFU_SS:
         case EXACTFU_TRICKYFOLD:
@@ -2724,6 +2724,7 @@ S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, UV *min_subtract, b
 
             /* XXX I (khw) kind of doubt that this works on platforms where
              * U8_MAX is above 255 because of lots of other assumptions */
+            /* Don't join if the sum can't fit into a single node */
             if (oldl + STR_LEN(n) > U8_MAX)
                 break;