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 | 3aa32f77a0b19dbce1f7e1af3a6a9a7f158c1b75 (patch) | |
| tree | b67ecccf9af8982bb3e650f3db80a58a500199dc /toke.c | |
| parent | 68b661934ec5e0a36f4d1c0f6aacb1f1e0f149c4 (diff) | |
| download | perl-3aa32f77a0b19dbce1f7e1af3a6a9a7f158c1b75.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 = '$'; |