diff options
| author | Karl Williamson <khw@cpan.org> | 2020-04-14 17:44:08 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-08-08 22:21:50 -0600 |
| commit | 3f8c7c3e1e1dd5fb1dc93324752d3cfd9c343db7 (patch) | |
| tree | f5032cd6a6e682dc0b271f80daa9486f3d77f54c /t/re | |
| parent | 43b79bef3428a30e2974320d0b19c8bfaa2283b8 (diff) | |
| download | perl-3f8c7c3e1e1dd5fb1dc93324752d3cfd9c343db7.tar.gz | |
regcomp.c: Don't allow \p{Is_Is_...}
Only one 'Is_' prefix should be allowed.
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/reg_mesg.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 9f1c417017..145a91a624 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -263,6 +263,7 @@ my @death = 'm/(?[[^\N{LATIN CAPITAL LETTER A WITH MACRON AND GRAVE}]])/' => '\N{} here is restricted to one character {#} m/(?[[^\N{U+100.300{#}}]])/', 'm/(?[ \p{Digit} & (?^(?[ \p{Thai} | \p{Lao} ]))])/' => 'Sequence (?^(...) not recognized {#} m/(?[ \p{Digit} & (?^({#}?[ \p{Thai} | \p{Lao} ]))])/', 'm/(?[ \p{Digit} & (?(?[ \p{Thai} | \p{Lao} ]))])/' => 'Unexpected character {#} m/(?[ \p{Digit} & (?{#}(?[ \p{Thai} | \p{Lao} ]))])/', + 'm/\p{Is_Is_Any}/' => 'Unknown user-defined property name \p{main::Is_Is_Any}', 'm/\o{/' => 'Missing right brace on \o{} {#} m/\o{{#}/', 'm/\o/' => 'Missing braces on \o{} {#} m/\o{#}/', 'm/\o{}/' => 'Empty \o{} {#} m/\o{}{#}/', |