This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove unnecessary 'if' test
authorKarl Williamson <public@khwilliamson.com>
Sat, 23 Jun 2012 21:24:38 +0000 (15:24 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 30 Jun 2012 04:22:40 +0000 (22:22 -0600)
A previous commit has refactored things, so this test is always true

regcomp.c

index 1435acb..3d49b81 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -12176,7 +12176,6 @@ parseit:
                        /* If any of the folded characters of this are in the
                         * Latin1 range, tell the regex engine that this can
                         * match a non-utf8 target string.  */
-                       if (j > 255 || AT_LEAST_UNI_SEMANTICS) {
                            while (loc < e) {
 
                                /* Can't mix ascii with non- under /aa */
@@ -12199,7 +12198,6 @@ parseit:
                                }
                                loc += UTF8SKIP(loc);
                            }
-                       }
 
                        add_alternate(&unicode_alternate, foldbuf, foldlen);
                    end_multi_fold: ;