diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 08:24:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-25 08:24:09 +0000 |
| commit | e0587a03b6ac758d47dfaaf71fafbe8f164a1bd5 (patch) | |
| tree | b67ecccf9af8982bb3e650f3db80a58a500199dc /toke.c | |
| parent | 60f9f73cb29fd732238c21658d3c834b5b058ced (diff) | |
| download | perl-e0587a03b6ac758d47dfaaf71fafbe8f164a1bd5.tar.gz | |
fix C<print $n += 5;> etc.
p4raw-id: //depot/perl@2075
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 = '$'; |