diff --git a/inline.h b/inline.h index 85737f52c4..01bb186d6a 100644 --- a/inline.h +++ b/inline.h @@ -2150,7 +2150,7 @@ Perl_utf8_hop_back(const U8 *s, SSize_t off, const U8 *start) while (off++ && s > start) { do { s--; - } while (UTF8_IS_CONTINUATION(*s) && s > start); + } while (s > start && UTF8_IS_CONTINUATION(*s)); } GCC_DIAG_IGNORE(-Wcast-qual)