diff options
author | Philippe Bruhat (BooK) <book@cpan.org> | 2022-10-24 00:05:16 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-02-25 00:49:18 +0800 |
commit | 381382f7662757c39a652bbb70bd0b1a5c0be5f7 (patch) | |
tree | cd1e561acd485b372a312459a5a4efc7983a7687 /toke.c | |
parent | da09070297bd182d67c73c69df14ea8487642e29 (diff) | |
download | perl-381382f7662757c39a652bbb70bd0b1a5c0be5f7.tar.gz |
Deprecate smartmatch
Make the 'experimental::smartmatch' warning obsolete, and use
'deprecated' instead.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -6638,8 +6638,8 @@ yyl_tilde(pTHX_ char *s) TOKEN(0); s += 2; Perl_ck_warner_d(aTHX_ - packWARN(WARN_EXPERIMENTAL__SMARTMATCH), - "Smartmatch is experimental"); + packWARN(WARN_DEPRECATED), + "Smartmatch is deprecated"); NCEop(OP_SMARTMATCH); } s++; @@ -8179,8 +8179,8 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct case KEY_given: pl_yylval.ival = CopLINE(PL_curcop); - Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__SMARTMATCH), - "given is experimental"); + Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), + "given is deprecated"); OPERATOR(KW_GIVEN); case KEY_glob: @@ -8702,8 +8702,8 @@ yyl_word_or_keyword(pTHX_ char *s, STRLEN len, I32 key, I32 orig_keyword, struct return REPORT(0); pl_yylval.ival = CopLINE(PL_curcop); Perl_ck_warner_d(aTHX_ - packWARN(WARN_EXPERIMENTAL__SMARTMATCH), - "when is experimental"); + packWARN(WARN_DEPRECATED), + "when is deprecated"); OPERATOR(KW_WHEN); case KEY_while: |