From d730a80128abafff1e47e2506c23a8c1a06cfef4 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Sun, 18 Jun 2017 23:44:07 +0200 Subject: [PATCH 2/2] add test for [perl #131522] and fix test for (related) [perl #127581] MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Petr Písař --- t/re/reg_mesg.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t index 090eccb..a0b78c4 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() -- 2.9.4