diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-08 15:04:53 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-18 21:00:54 +0800 |
commit | b689ed93d1ae924a59738611b98517cbe071b1ab (patch) | |
tree | d27246474fd1a4479760be4852039b80611d3388 /handy.h | |
parent | 2d8fceed5417cb8fcc169f35f36ea58b7bb9cded (diff) | |
download | perl-b689ed93d1ae924a59738611b98517cbe071b1ab.tar.gz |
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.
Diffstat (limited to 'handy.h')
-rw-r--r-- | handy.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |