In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/b7502288af31c8825a7da7573538e6ce58a641c3?hp=ca21d46d3db8b4555070f23307b87ad37f93afe7>
- Log ----------------------------------------------------------------- commit b7502288af31c8825a7da7573538e6ce58a641c3 Author: Karl Williamson <[email protected]> Date: Thu Mar 28 18:22:11 2019 -0600 PATCH: [perl #133347] Tk broken This was caused by utf8_to_uvchr() failing to set the returned ptr in some circumstances, leading to reading uninitialized memory. A test failure remains, and I'll wait for Slaven's feedback before looking further into that. It is in t/photo.t couldn't recognize image data at blib/lib/Tk/Image.pm line 21. # Looks like your test exited with 255 just after 100 And it's trying at that point to look at 'Xcamel.gif' ----------------------------------------------------------------------- Summary of changes: utf8.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/utf8.c b/utf8.c index b9772b43b8..e479400b71 100644 --- a/utf8.c +++ b/utf8.c @@ -5481,6 +5481,9 @@ Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen) * handled the same way, speeding up this common case */ if (UTF8_IS_INVARIANT(*s)) { /* Assumes 's' contains at least 1 byte */ + if (retlen) { + *retlen = 1; + } return (UV) *s; } -- Perl5 Master Repository
