From 381382f7662757c39a652bbb70bd0b1a5c0be5f7 Mon Sep 17 00:00:00 2001 From: "Philippe Bruhat (BooK)" Date: Mon, 24 Oct 2022 00:05:16 +0200 Subject: Deprecate smartmatch Make the 'experimental::smartmatch' warning obsolete, and use 'deprecated' instead. --- toke.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 610d2ebdc9..768630481a 100644 --- a/toke.c +++ b/toke.c @@ -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: -- cgit v1.2.1