diff options
author | Tony Cook <tony@develop-help.com> | 2022-12-06 14:41:23 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2023-02-07 10:37:30 +1100 |
commit | a36fec492e3c37aae28f47766892f34b74d51b31 (patch) | |
tree | 3c4da954fc1878fe7d0458dd20a5a4fca79a92cc /toke.c | |
parent | 85fcefb858d7287b1c90277ead7d1cdd170e48d0 (diff) | |
download | perl-a36fec492e3c37aae28f47766892f34b74d51b31.tar.gz |
Enable the current "Old package separator used in string" by default
If we're going to be removing this entirely, the behavior of
existing code is going to change. Make sure everyone sees it.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10157,7 +10157,7 @@ S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package, break; } if (UNLIKELY(tick_warn && saw_tick && PL_lex_state == LEX_INTERPNORMAL - && !PL_lex_brackets && ckWARN(WARN_SYNTAX))) { + && !PL_lex_brackets && ckWARN_d(WARN_SYNTAX))) { char *this_d; char *d2; Newx(this_d, *s - olds + saw_tick + 2, char); /* +2 for $# */ |