Fix off-by-one error in is_utf8_valid_partial_char()

1 files changed, 1 insertions, 1 deletions

diff --git a/inline.h b/inline.h
index b667cddbf8..5384281301 100644
--- a/inline.h
+++ b/inline.h
@@ -533,7 +533,7 @@ S_is_utf8_valid_partial_char(const U8 * const s, const U8 * const e)
 
     PERL_ARGS_ASSERT_IS_UTF8_VALID_PARTIAL_CHAR;
 
-    if (s >= e || s + UTF8SKIP(s) < e) {
+    if (s >= e || s + UTF8SKIP(s) <= e) {
         return FALSE;
     }