diff options
| author | Tony Cook <tony@develop-help.com> | 2018-02-19 15:11:42 +1100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-03-23 19:36:45 +0000 |
| commit | 8b80ce67ff257aaa36e47eaf4194d27a51595524 (patch) | |
| tree | 8ff46eb98c6809b85eabaaccf087a74a378ccc40 | |
| parent | fa889a389ebb8e63782a3697775aa42c63a8f0cd (diff) | |
| download | perl-8b80ce67ff257aaa36e47eaf4194d27a51595524.tar.gz | |
(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.
(cherry picked from commit 137b59d638977222c5de78330aacdcde340fd611)
| -rw-r--r-- | t/lib/warnings/regexec | 3 |
1 files changed, 0 insertions, 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. |