diff options
| author | Yves Orton <demerphq@gmail.com> | 2017-06-18 23:44:07 +0200 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2017-09-07 20:27:40 +0100 |
| commit | 657e4562320635520ae4a9c21ce817998acbea6f (patch) | |
| tree | a90e43e1c555077ec6c525b635fc3755149cd072 | |
| parent | f1c751108e829938436e1f123112ff1520d00609 (diff) | |
| download | perl-657e4562320635520ae4a9c21ce817998acbea6f.tar.gz | |
add test for [perl #131522] and fix test for (related) [perl #127581]
(cherry picked from commit d730a80128abafff1e47e2506c23a8c1a06cfef4)
| -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 b80b692e62..39cfcf7df1 100644 --- a/t/re/reg_mesg.t +++ b/t/re/reg_mesg.t @@ -216,7 +216,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{#}])/', @@ -578,7 +577,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() |