This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add comment
authorKarl Williamson <public@khwilliamson.com>
Wed, 9 Feb 2011 16:44:10 +0000 (09:44 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 14 Feb 2011 15:41:37 +0000 (08:41 -0700)
regcomp.c

index 1c2c4df..b98f72f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9552,6 +9552,8 @@ parseit:
            }
        }
 
+       /* non-Latin1 code point implies unicode semantics.  Must be set in
+        * pass1 so is there for the whole of pass 2 */
        if (value > 255) {
            RExC_uni_semantics = 1;
        }