diff options
| author | Karl Williamson <khw@cpan.org> | 2018-09-24 11:55:55 -0600 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-11-05 20:14:50 +0000 |
| commit | 9b0464aa670d0a59bda5b75d54f2a6b6f9d1288a (patch) | |
| tree | 498e58685d38abf85012ae04773a9f819d4cf8d4 | |
| parent | 0589f071dc6836de80b24fd798c3336c72ead850 (diff) | |
| download | perl-9b0464aa670d0a59bda5b75d54f2a6b6f9d1288a.tar.gz | |
PATCH: [perl #133423] for maint 5.28
| -rw-r--r-- | regcomp.c | 1 | ||||
| -rw-r--r-- | t/re/reg_mesg.t | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -15591,7 +15591,6 @@ redo_curchar: if (UCHARAT(RExC_parse) != ')') vFAIL("Expecting close paren for wrapper for nested extended charclass"); - RExC_parse++; RExC_flags = save_flags; goto handle_operand; } diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 5fb1f1a46c..2880be45eb 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -122,6 +122,8 @@ my $tab_hex = sprintf "%02X", ord("\t"); # # The first set are those that should be fatal errors. +my $bug133423 = "(?[(?^:(?[\\\x00]))\\]\x00|2[^^]\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80])R.\\670"; + my @death = ( '/[[=foo=]]/' => 'POSIX syntax [= =] is reserved for future extensions {#} m/[[=foo=]{#}]/', @@ -307,6 +309,7 @@ my @death = '/\A{/' => 'Unescaped left brace in regex is illegal here {#} m/\A{{#}/', '/(?<=/' => 'Sequence (?... not terminated {#} m/(?<={#}/', # [perl #128170] '/\p{vertical tab}/' => 'Can\'t find Unicode property definition "vertical tab" {#} m/\\p{vertical tab}{#}/', # [perl #132055] + "/$bug133423/" => "Operand with no preceding operator {#} m/(?[(?^:(?[\\ ); |