31 lines
1.1 KiB
Diff
31 lines
1.1 KiB
Diff
|
From 97e57bec1f0ba4f0c3b1dc18ee146632010e3373 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Karl Williamson <khw@cpan.org>
|
||
|
|
Date: Sat, 15 Jul 2017 19:36:25 -0600
|
||
|
|
Subject: [PATCH] t/lib/warnings/utf8: Fix test
|
||
|
|
MIME-Version: 1.0
|
||
|
|
Content-Type: text/plain; charset=UTF-8
|
||
|
|
Content-Transfer-Encoding: 8bit
|
||
|
|
|
||
|
|
There is some randomness to this test added to fix [perl #131646].
|
||
|
|
Change what passes to be a pattern that matches the correct template
|
||
|
|
|
||
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||
|
|
---
|
||
|
|
t/lib/warnings/utf8 | 3 ++-
|
||
|
|
1 file changed, 2 insertions(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8
|
||
|
|
index 9066308..dfc58c1 100644
|
||
|
|
--- a/t/lib/warnings/utf8
|
||
|
|
+++ b/t/lib/warnings/utf8
|
||
|
|
@@ -781,4 +781,5 @@ no warnings;
|
||
|
|
use warnings 'utf8';
|
||
|
|
for(uc 0..t){0~~pack"UXp>",exp}
|
||
|
|
EXPECT
|
||
|
|
-Malformed UTF-8 character: \xc2\x00 (unexpected non-continuation byte 0x00, immediately after start byte 0xc2; need 2 bytes, got 1) in smart match at - line 9.
|
||
|
|
+OPTIONS regex
|
||
|
|
+Malformed UTF-8 character: \\x([[:xdigit:]]{2})\\x([[:xdigit:]]{2}) \(unexpected non-continuation byte 0x\2, immediately after start byte 0x\1; need 2 bytes, got 1\) in smart match at - line 9.
|
||
|
|
--
|
||
|
|
2.9.4
|
||
|
|
|