From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 21 Aug 2012 08:45:15 +0000 (-0700)
Subject: toke.c:scan_heredoc: Use PL_tokenbuf less
X-Git-Tag: upstream/5.20.0~5695^2~2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5bd13da38ce1da800b0c3011ce3201c3b88541c3;p=platform%2Fupstream%2Fperl.git

toke.c:scan_heredoc: Use PL_tokenbuf less

When scanning for a heredoc terminator in a string eval or quote-like
operator, the first character we are looking for is always a newline.
So instead of setting term to *PL_tokenbuf in those two code paths,
we can just hard-code '\n'.
---

diff --git a/toke.c b/toke.c
index 4f58a26..86b8c7f 100644
--- a/toke.c
+++ b/toke.c
@@ -9656,10 +9656,9 @@ S_scan_heredoc(pTHX_ register char *s)
 		break;
 	    }
 	}
-	term = *PL_tokenbuf;
 	d = s;
 	while (s < bufend &&
-	  (*s != term || memNE(s,PL_tokenbuf,len)) ) {
+	  (*s != '\n' || memNE(s,PL_tokenbuf,len)) ) {
 	    if (*s++ == '\n')
 		CopLINE_inc(PL_curcop);
 	}
@@ -9680,10 +9679,9 @@ S_scan_heredoc(pTHX_ register char *s)
 	goto retval;
     }
     else if (!infile || found_newline) {
-	term = *PL_tokenbuf;
 	d = s;
 	while (s < PL_bufend &&
-	  (*s != term || memNE(s,PL_tokenbuf,len)) ) {
+	  (*s != '\n' || memNE(s,PL_tokenbuf,len)) ) {
 	    if (*s++ == '\n')
 		CopLINE_inc(PL_curcop);
 	}