diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2009-12-17 20:07:32 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-20 16:56:36 +0100 |
| commit | 6182169b72782336c6202161aa4cde16ac88296e (patch) | |
| tree | 1bb8f6991d83bd95276a28dbe02143c77b4f3731 /regexec.c | |
| parent | f43e267de16a74afaaa452f8fab4810d15b8e797 (diff) | |
| download | perl-6182169b72782336c6202161aa4cde16ac88296e.tar.gz | |
Allow U+0FFFF in regex
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -5948,8 +5948,10 @@ S_reginclass(pTHX_ const regexp *prog, register const regnode *n, register const if (do_utf8 && !UTF8_IS_INVARIANT(c)) { c = utf8n_to_uvchr(p, UTF8_MAXBYTES, &len, - (UTF8_ALLOW_DEFAULT & UTF8_ALLOW_ANYUV) | UTF8_CHECK_ONLY); - /* see [perl #37836] for UTF8_ALLOW_ANYUV */ + (UTF8_ALLOW_DEFAULT & UTF8_ALLOW_ANYUV) + | UTF8_ALLOW_FFFF | UTF8_CHECK_ONLY); + /* see [perl #37836] for UTF8_ALLOW_ANYUV; [perl #38293] for + * UTF8_ALLOW_FFFF */ if (len == (STRLEN)-1) Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)"); } |