diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-08 09:01:13 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-18 21:00:54 +0800 |
commit | 25676a74796a9afdbb6efe609bbfc7e223921fae (patch) | |
tree | 7fe10b9bf930bdb8a5abf5386efaa61548ed1d1e /toke.c | |
parent | 25991c51d4866aeef3eeef13c1dc562fff82d7e4 (diff) | |
download | perl-25676a74796a9afdbb6efe609bbfc7e223921fae.tar.gz |
warnings.pm - add deprecated::apostrophe_as_package_separator as new deprecation category
This category is about use of apostrophe as a package separator, eg
for things like "Test::More::isn't()".
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -10212,7 +10212,7 @@ S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package, else break; } - if (UNLIKELY(saw_tick && tick_warn && ckWARN2_d(WARN_SYNTAX, WARN_DEPRECATED))) { + if (UNLIKELY(saw_tick && tick_warn && ckWARN2_d(WARN_SYNTAX, WARN_DEPRECATED__APOSTROPHE_AS_PACKAGE_SEPARATOR))) { if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) { char *this_d; char *d2; @@ -10220,7 +10220,7 @@ S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package, d2 = this_d; SAVEFREEPV(this_d); - Perl_warner(aTHX_ packWARN2(WARN_SYNTAX, WARN_DEPRECATED), + Perl_warner(aTHX_ packWARN2(WARN_SYNTAX, WARN_DEPRECATED__APOSTROPHE_AS_PACKAGE_SEPARATOR), "Old package separator used in string"); if (olds[-1] == '#') *d2++ = olds[-2]; @@ -10238,7 +10238,7 @@ S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package, UTF8fARG(is_utf8, d2-this_d, this_d)); } else { - Perl_warner(aTHX_ packWARN2(WARN_SYNTAX, WARN_DEPRECATED), + Perl_warner(aTHX_ packWARN2(WARN_SYNTAX, WARN_DEPRECATED__APOSTROPHE_AS_PACKAGE_SEPARATOR), "Old package separator \"'\" deprecated"); } } |