From b689ed93d1ae924a59738611b98517cbe071b1ab Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Wed, 8 Mar 2023 15:04:53 +0100 Subject: warnings.pm - add deprecated::version_downgrade category This also fixes the version_downgrade to show the correct version that version downgrades will be removed in. --- handy.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'handy.h') diff --git a/handy.h b/handy.h index 3f1922728c..5444aa65ae 100644 --- a/handy.h +++ b/handy.h @@ -2961,11 +2961,11 @@ last-inclusive range. #ifdef PERL_CORE # define deprecate(category,s) Perl_ck_warner_d(aTHX_ packWARN(category), \ "Use of " s " is deprecated") -# define deprecate_disappears_in(when,message) \ - Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), \ +# define deprecate_disappears_in(category,when,message) \ + Perl_ck_warner_d(aTHX_ packWARN(category), \ message " is deprecated, and will disappear in Perl " when) -# define deprecate_fatal_in(when,message) \ - Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), \ +# define deprecate_fatal_in(category,when,message) \ + Perl_ck_warner_d(aTHX_ packWARN(category), \ message " is deprecated, and will become fatal in Perl " when) #endif -- cgit v1.2.1