Fix bug [perl #41234] : the tokenizer understands "=cute"

or other words that begin with "cut" as synonyms for "=cut"

p4raw-id: //depot/perl@29761

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 4d5d9c2413..57fb8a0d40 100644
--- a/toke.c
+++ b/toke.c
@@ -3674,7 +3674,7 @@ Perl_yylex(pTHX)
 		if (PL_madskills)
 		    sv_catsv(PL_thiswhite, PL_linestr);
 #endif
-		if (*s == '=' && strnEQ(s, "=cut", 4)) {
+		if (*s == '=' && strnEQ(s, "=cut", 4) && !isALPHA(s[4])) {
 		    sv_setpvn(PL_linestr, "", 0);
 		    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
 		    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);