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"UXc",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