From 3c4ea4886efdb477335f6931d0a553e818ee172f Mon Sep 17 00:00:00 2001

From: Tony Cook <tony@develop-help.com>

Date: Mon, 19 Feb 2018 15:11:42 +1100

Subject: (perl #132063) we should no longer warn for this code

The first patch for 132063 prevented the buffer read overflow when

dumping the warning but didn't fix the underlying problem.

The next change treats the supplied buffer correctly, preventing the

non-UTF-8 SV from being treated as UTF-8, preventing the warning.

---

 t/lib/warnings/regexec | 3 ---

 1 file changed, 3 deletions(-)

diff --git a/t/lib/warnings/regexec b/t/lib/warnings/regexec

index 6635142dea..c370ddc3c7 100644

--- a/t/lib/warnings/regexec

+++ b/t/lib/warnings/regexec

@@ -262,8 +262,5 @@ setlocale(&POSIX::LC_CTYPE, $utf8_locale);

 EXPECT

 ########

 # NAME perl #132063, read beyond buffer end

-# OPTION fatal

 "\xff" =~ /(?il)\x{100}|\x{100}/;

 EXPECT

-Malformed UTF-8 character: \xff (too short; 1 byte available, need 13) in pattern match (m//) at - line 2.

-Malformed UTF-8 character (fatal) at - line 2.

-- 

2.11.0