This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Remove always-true test
[perl5.git] / regcomp.c
index 0b4a75e..bc0e6b3 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -13543,8 +13543,7 @@ parseit:
                          * doesn't allow them between above and below 256 */
                         if ((ASCII_FOLD_RESTRICTED
                                   && (isASCII(c) != isASCII(j)))
-                            || (LOC && ((c < 256) != (j < 256))))
-                        {
+                            || (LOC && c < 256)) {
                             continue;
                         }