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

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index d116996e77..6e8ed664c8 100644
--- 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) {