diff options
author | Branislav ZahradnĂk <barney@cpan.org> | 2020-12-11 17:19:12 +0100 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-27 09:46:09 -0700 |
commit | 5776f3e52dc3d9bddaadfc7c058c4e18589018b3 (patch) | |
tree | 2e83f1b7587c11a73c7774010f2dd4d3bc367dec /toke.c | |
parent | 68a66a8beadf6521143536cc70b76b1127b141e7 (diff) | |
download | perl-5776f3e52dc3d9bddaadfc7c058c4e18589018b3.tar.gz |
Distinguish C- and perly- literals - PERLY_PLUS
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -397,6 +397,7 @@ static struct debug_tokens { DEBUG_TOKEN (IVAL, PERLY_EQUAL_SIGN), DEBUG_TOKEN (IVAL, PERLY_EXCLAMATION_MARK), DEBUG_TOKEN (IVAL, PERLY_MINUS), + DEBUG_TOKEN (IVAL, PERLY_PLUS), DEBUG_TOKEN (IVAL, PERLY_QUESTION_MARK), DEBUG_TOKEN (IVAL, PERLY_SEMICOLON), DEBUG_TOKEN (IVAL, PERLY_TILDE), @@ -5680,7 +5681,7 @@ yyl_plus(pTHX_ char *s) else { if (isSPACE(*s) || !isSPACE(*PL_bufptr)) check_uni(); - OPERATOR('+'); + OPERATOR(PERLY_PLUS); } } |