[tosquash] s > end cannot happen; remove the test for it

Perl · Nov 23, 2024 · 071d70c · 071d70c
1 parent 2e28331
commit 071d70c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/toke.c b/toke.c
@@ -13963,7 +13963,7 @@ Perl_valid_identifier_pvn(pTHX_ const char *s, STRLEN len, U32 flags)
             s += UTF8SKIP((U8 *)s);
             if(s == end)
                 break;
-            if(s > end || !isIDCONT_utf8_safe((U8 *)s, (U8 *)end))
+            if(!isIDCONT_utf8_safe((U8 *)s, (U8 *)end))
                 return false;
         }
         return true;
@@ -13976,7 +13976,7 @@ Perl_valid_identifier_pvn(pTHX_ const char *s, STRLEN len, U32 flags)
             s += 1;
             if(s == end)
                 break;
-            if(s > end || !isIDCONT(s[0]))
+            if(!isIDCONT(s[0]))
                 return false;
         }
         return true;