diff options
author | Yves Orton <demerphq@gmail.com> | 2017-06-18 23:44:07 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2017-06-18 23:44:07 +0200 |
commit | d730a80128abafff1e47e2506c23a8c1a06cfef4 (patch) | |
tree | ee4ba58d1e6a89283e62bd8a7639894dff6b3d20 | |
parent | bab0f8e933b383b6bef406d79c2da340bbcded33 (diff) | |
download | perl-d730a80128abafff1e47e2506c23a8c1a06cfef4.tar.gz |
add test for [perl #131522] and fix test for (related) [perl #127581]
-rw-r--r-- | t/re/reg_mesg.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 090eccbbb4..a0b78c441d 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -221,7 +221,6 @@ my @death = '/(?[[[::]]])/' => "Syntax error in (?[...]) in regex m/(?[[[::]]])/", '/(?[[[:w:]]])/' => "Syntax error in (?[...]) in regex m/(?[[[:w:]]])/", '/(?[[:w:]])/' => "", - '/[][[:alpha:]]' => "", # [perl #127581] '/([.].*)[.]/' => "", # [perl #127582] '/[.].*[.]/' => "", # [perl #127604] '/(?[a])/' => 'Unexpected character {#} m/(?[a{#}])/', @@ -587,7 +586,8 @@ my @warning = ( 'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;{#}punct;]]\x{100}/', 'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;punct;]{#}]\x{100}/', ], - + '/[][[:alpha:]]/' => "", # [perl #127581] + '/[][[:alpha:]\\@\\\\^_?]/' => "", # [perl #131522] ); # See comments before this for why '\x{100}' is generally needed # These need the character 'ネ' as a marker for mark_as_utf8() |