"/$bug133423/" => "Operand with no preceding operator {#} m/(?[(?^:(?[\\\0]))\\{#}]\0|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/",
'/[^/' => 'Unmatched [ {#} m/[{#}^/', # [perl #133767]
'/\p{Is_Other_Alphabetic=F}/ ' => 'Can\'t find Unicode property definition "Is_Other_Alphabetic=F" {#} m/\p{Is_Other_Alphabetic=F}{#}/',
-
+ '/\p{Is_Other_Alphabetic=F}/ ' => 'Can\'t find Unicode property definition "Is_Other_Alphabetic=F" {#} m/\p{Is_Other_Alphabetic=F}{#}/',
+ '/\x{100}(?(/' => 'Unknown switch condition (?(...)) {#} m/\\x{100}(?({#}/', # [perl #133896]
+ '/(?[\N{KEYCAP DIGIT NINE}/' => '\N{} in inverted character class or as a range end-point is restricted to one character {#} m/(?[\\N{U+39.FE0F.20E3{#}}/', # [perl #133988]
);
# These are messages that are death under 'use re "strict"', and may or may
=> 'Unescaped left brace in regex is illegal here {#} m/[x]{{#}/',
'/\p{Latin}{/' => 'Unescaped left brace in regex is passed through {#} m/\p{Latin}{{#}/',
=> 'Unescaped left brace in regex is illegal here {#} m/\p{Latin}{{#}/',
+ '/\x{100}\x/' => "",
+ => "Empty \\x {#} m/\\x{100}\\x{#}/",
);
# These need the character 'ネ' as a marker for mark_as_utf8()
"/[$low_mixed_digit-$high_mixed_digit]/" => "Ranges of ASCII printables should be some subset of \"0-9\", \"A-Z\", or \"a-z\" {#} m/[$low_mixed_digit-$high_mixed_digit\{#}]/",
'/\b<GCB}/' => 'Unescaped literal \'}\' {#} m/\b<GCB}{#}/',
'/[ ]def]/' => 'Unescaped literal \']\' {#} m/[ ]def]{#}/',
+ '/(?)/' => 'Empty (?) without any modifiers {#} m/(?){#}/', # [perl #132851]
);
my @warning_utf8_only_under_strict = mark_as_utf8(