diff options
author | Branislav ZahradnĂk <barney@cpan.org> | 2020-12-11 17:19:03 +0100 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-27 09:46:09 -0700 |
commit | da4bce7d622f45b752d496660faa400b8d582c7f (patch) | |
tree | 624095dc63d8237bc327df79f9b266162e108ec1 /toke.c | |
parent | 5adeeefb95fca6c5e6fabf5929c025d5b432d4b0 (diff) | |
download | perl-da4bce7d622f45b752d496660faa400b8d582c7f.tar.gz |
Distinguish C- and perly- literals - PERLY_DOT
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -390,6 +390,7 @@ static struct debug_tokens { DEBUG_TOKEN (IVAL, PERLY_BRACE_OPEN), DEBUG_TOKEN (IVAL, PERLY_BRACKET_CLOSE), DEBUG_TOKEN (IVAL, PERLY_BRACKET_OPEN), + DEBUG_TOKEN (IVAL, PERLY_DOT), DEBUG_TOKEN (IVAL, PERLY_SEMICOLON), { PLUGEXPR, TOKENTYPE_OPVAL, "PLUGEXPR" }, { PLUGSTMT, TOKENTYPE_OPVAL, "PLUGSTMT" }, @@ -6226,7 +6227,7 @@ yyl_rightcurly(pTHX_ char *s, const U8 formbrack) return yylex(); /* ignore fake brackets */ } - force_next(formbrack ? '.' : PERLY_BRACE_CLOSE); + force_next(formbrack ? PERLY_DOT : PERLY_BRACE_CLOSE); if (formbrack) LEAVE_with_name("lex_format"); if (formbrack == 2) { /* means . where arguments were expected */ force_next(PERLY_SEMICOLON); |