[perl #82772] utf8::decode: Don’t read past SvCUR

diff --git a/sv.c b/sv.c
index d116996..6e8ed66 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3562,7 +3562,7 @@ Perl_sv_utf8_decode(pTHX_ register SV *const sv)
          * we want to make sure everything inside is valid utf8 first.
          */
         c = start = (const U8 *) SvPVX_const(sv);
-       if (!is_utf8_string(c, SvCUR(sv)+1))
+       if (!is_utf8_string(c, SvCUR(sv)))
            return FALSE;
         e = (const U8 *) SvEND(sv);
         while (c < e) {