|
 |
dcb3b7 |
From d730a80128abafff1e47e2506c23a8c1a06cfef4 Mon Sep 17 00:00:00 2001
|
|
|
dcb3b7 |
From: Yves Orton <demerphq@gmail.com>
|
|
|
dcb3b7 |
Date: Sun, 18 Jun 2017 23:44:07 +0200
|
|
|
dcb3b7 |
Subject: [PATCH 2/2] add test for [perl #131522] and fix test for (related)
|
|
|
dcb3b7 |
[perl #127581]
|
|
|
dcb3b7 |
MIME-Version: 1.0
|
|
|
dcb3b7 |
Content-Type: text/plain; charset=UTF-8
|
|
|
dcb3b7 |
Content-Transfer-Encoding: 8bit
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
dcb3b7 |
---
|
|
|
dcb3b7 |
t/re/reg_mesg.t | 4 ++--
|
|
|
dcb3b7 |
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
|
|
|
dcb3b7 |
index 090eccb..a0b78c4 100644
|
|
|
dcb3b7 |
--- a/t/re/reg_mesg.t
|
|
|
dcb3b7 |
+++ b/t/re/reg_mesg.t
|
|
|
dcb3b7 |
@@ -221,7 +221,6 @@ my @death =
|
|
|
dcb3b7 |
'/(?[[[::]]])/' => "Syntax error in (?[...]) in regex m/(?[[[::]]])/",
|
|
|
dcb3b7 |
'/(?[[[:w:]]])/' => "Syntax error in (?[...]) in regex m/(?[[[:w:]]])/",
|
|
|
dcb3b7 |
'/(?[[:w:]])/' => "",
|
|
|
dcb3b7 |
- '/[][[:alpha:]]' => "", # [perl #127581]
|
|
|
dcb3b7 |
'/([.].*)[.]/' => "", # [perl #127582]
|
|
|
dcb3b7 |
'/[.].*[.]/' => "", # [perl #127604]
|
|
|
dcb3b7 |
'/(?[a])/' => 'Unexpected character {#} m/(?[a{#}])/',
|
|
|
dcb3b7 |
@@ -587,7 +586,8 @@ my @warning = (
|
|
|
dcb3b7 |
'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;{#}punct;]]\x{100}/',
|
|
|
dcb3b7 |
'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;punct;]{#}]\x{100}/',
|
|
|
dcb3b7 |
],
|
|
|
dcb3b7 |
-
|
|
|
dcb3b7 |
+ '/[][[:alpha:]]/' => "", # [perl #127581]
|
|
|
dcb3b7 |
+ '/[][[:alpha:]\\@\\\\^_?]/' => "", # [perl #131522]
|
|
|
dcb3b7 |
); # See comments before this for why '\x{100}' is generally needed
|
|
|
dcb3b7 |
|
|
|
dcb3b7 |
# These need the character 'ネ' as a marker for mark_as_utf8()
|
|
|
dcb3b7 |
--
|
|
|
dcb3b7 |
2.9.4
|
|
|
dcb3b7 |
|