From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 11 Jan 2007 17:12:08 +0000 (+0000)
Subject: Fix bug [perl #41234] : the tokenizer understands "=cute"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=01a57ef76e2bbb4fc89bd29489dbb04b936a94c2;p=p5sagit%2Fp5-mst-13.2.git

Fix bug [perl #41234] : the tokenizer understands "=cute"
or other words that begin with "cut" as synonyms for "=cut"

p4raw-id: //depot/perl@29761
---

diff --git a/toke.c b/toke.c
index 4d5d9c2..57fb8a0 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);