This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Be more precise about ANYOF matching flag
authorKarl Williamson <public@khwilliamson.com>
Sun, 6 Feb 2011 03:04:54 +0000 (20:04 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 14 Feb 2011 15:41:36 +0000 (08:41 -0700)
There are two flags for matching outside the ANYOF bitmap.  Instead of
setting both, set the corresponding one.

regcomp.c

index 9955084..fa9e492 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9775,7 +9775,7 @@ parseit:
 
                            /* This node is variable length */
                            OP(ret) = ANYOFV;
 
                            /* This node is variable length */
                            OP(ret) = ANYOFV;
-                           ANYOF_FLAGS(ret) |= ANYOF_UNICODE;
+                           ANYOF_FLAGS(ret) |= ANYOF_UTF8;
                        }
                    }
                    else { /* Single character fold */
                        }
                    }
                    else { /* Single character fold */