diff options
| author | Karl Williamson <khw@cpan.org> | 2021-01-07 07:41:47 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-01-20 06:51:49 -0700 |
| commit | a25b770c008a6e530595a4b555443e2b65289a65 (patch) | |
| tree | 498eaaefdb5cde9e456224eee4fe76d17269c5c9 /t/re | |
| parent | e513125ac7bdea1f40ab055ab8c72da44de8f869 (diff) | |
| download | perl-a25b770c008a6e530595a4b555443e2b65289a65.tar.gz | |
Point to error in malformed /x{y,z}/
Prior to this comment a curly quantifier that had an error in the bounds
pointed to the left brace. Now the error message points to the first
bound that has a problem.
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/reg_mesg.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 145a91a624..66c98dcd40 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -174,7 +174,10 @@ my @death = '/((x)/' => 'Unmatched ( {#} m/({#}(x)/', '/{(}/' => 'Unmatched ( {#} m/{({#}}/', # [perl #127599] - "/x{$inf_p1}/" => "Quantifier in {,} bigger than $inf_m1 {#} m/x{{#}$inf_p1}/", + "/x{$inf_p1}/" => "Quantifier in {,} bigger than $inf_m1 {#} m/x{$inf_p1\{#}}/", + "/x{$inf_p1,}/" => "Quantifier in {,} bigger than $inf_m1 {#} m/x{$inf_p1\{#},}/", + "/x{01,2}/" => "Invalid quantifier in {,} {#} m/x{01{#},2}/", + "/x{1,02}/" => "Invalid quantifier in {,} {#} m/x{1,02{#}}/", '/x**/' => 'Nested quantifiers {#} m/x**{#}/', @@ -456,7 +459,10 @@ my @death_utf8 = mark_as_utf8( '/ネ((ネ)/' => 'Unmatched ( {#} m/ネ({#}(ネ)/', - "/ネ{$inf_p1}ネ/" => "Quantifier in {,} bigger than $inf_m1 {#} m/ネ{{#}$inf_p1}ネ/", + "/ネ{$inf_p1}ネ/" => "Quantifier in {,} bigger than $inf_m1 {#} m/ネ{$inf_p1\{#}}ネ/", + "/ネ{$inf_p1,}ネ/" => "Quantifier in {,} bigger than $inf_m1 {#} m/ネ{$inf_p1\{#},}ネ/", + "/ネ{01}ネ/" => "Invalid quantifier in {,} {#} m/ネ{01{#}}ネ/", + "/ネ{1,02}ネ/" => "Invalid quantifier in {,} {#} m/ネ{1,02{#}}ネ/", '/ネ**ネ/' => 'Nested quantifiers {#} m/ネ**{#}ネ/', |