toke.c use memBEGINs with prev commit

1 files changed, 4 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index a60d16b670..1fa127ed1f 100644
--- a/toke.c
+++ b/toke.c
@@ -1734,6 +1734,8 @@ S_incline(pTHX_ const char *s, const char *end)
 
     PERL_ARGS_ASSERT_INCLINE;
 
+    assert(end >= s);
+
     COPLINE_INC_WITH_HERELINES;
     if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL
      && s+1 == PL_bufend && *s == ';') {
@@ -1745,8 +1747,8 @@ S_incline(pTHX_ const char *s, const char *end)
 	return;
     while (SPACE_OR_TAB(*s))
 	s++;
-    if (strBEGINs(s, "line"))
-	s += 4;
+    if (memBEGINs(s, (STRLEN) (end - s), "line"))
+	s += sizeof("line") - 1;
     else
 	return;
     if (SPACE_OR_TAB(*s))