diff options
-rw-r--r-- | regcomp.c | 1 | ||||
-rw-r--r-- | t/re/reg_mesg.t | 4 |
2 files changed, 4 insertions, 1 deletions
@@ -15109,7 +15109,6 @@ redo_curchar: RExC_parse++; assert(UCHARAT(RExC_parse) == ')'); - RExC_parse++; RExC_flags = save_flags; goto handle_operand; } diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 39cfcf7df1..d26a7caf37 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -106,6 +106,8 @@ my $high_mixed_digit = ('A' lt '0') ? '0' : 'A'; my $colon_hex = sprintf "%02X", ord(":"); my $tab_hex = sprintf "%02X", ord("\t"); +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"; + ## ## Key-value pairs of code/error of code that should have fatal errors. ## @@ -290,6 +292,8 @@ my @death = '/(?xmsixp)abc/' => "", '/(?xxxx:abc)/' => "", '/(?<=/' => 'Sequence (?... not terminated {#} m/(?<={#}/', # [perl #128170] + "/$bug133423/" => "Operand with no preceding operator {#} m/(?[(?^:(?[\\ + ); |