40 lines
1.6 KiB
Diff
40 lines
1.6 KiB
Diff
From d730a80128abafff1e47e2506c23a8c1a06cfef4 Mon Sep 17 00:00:00 2001
|
|
From: Yves Orton <demerphq@gmail.com>
|
|
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ř <ppisar@redhat.com>
|
|
---
|
|
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
|
|
|