From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Oct 1998 08:24:09 +0000 (+0000)
Subject: fix C<print $n += 5;> etc.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0587a03b6ac758d47dfaaf71fafbe8f164a1bd5;p=p5sagit%2Fp5-mst-13.2.git

fix C<print $n += 5;> etc.

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

diff --git a/toke.c b/toke.c
index 839ef14..1827a39 100644
--- a/toke.c
+++ b/toke.c
@@ -2775,9 +2775,9 @@ int yylex
 		PL_expect = XTERM;		/* e.g. print $fh 3 */
 	    else if (*s == '.' && isDIGIT(s[1]))
 		PL_expect = XTERM;		/* e.g. print $fh .3 */
-	    else if (strchr("/?-+", *s) && !isSPACE(s[1]))
+	    else if (strchr("/?-+", *s) && !isSPACE(s[1]) && s[1] != '=')
 		PL_expect = XTERM;		/* e.g. print $fh -1 */
-	    else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]))
+	    else if (*s == '<' && s[1] == '<' && !isSPACE(s[2]) && s[2] != '=')
 		PL_expect = XTERM;		/* print $fh <<"EOF" */
 	}
 	PL_pending_ident = '$';