diff options
| author | Abigail <abigail@abigail.be> | 2016-11-15 19:35:28 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-01-16 19:18:11 +0100 |
| commit | c96809061c2def2e6554bf2f122c294e7396fb98 (patch) | |
| tree | 3aa310c7a649cb9df687e5f0bdfde3ca1065187d /handy.h | |
| parent | 3da1a3d5452e2d6211aabdc62e63979bec5e373d (diff) | |
| download | perl-c96809061c2def2e6554bf2f122c294e7396fb98.tar.gz | |
Time limit the deprecation of :unique and :locked.
The :unique and :locked attributes have had no effect since 5.8.8
and 5.005 respectively. They were deprecated in 5.12. They are now
scheduled to be deleted in 5.28.
There are two places the deprecation warning can be issued:
in lib/attributes.pm, and in toke.c. The warnings were phrased
differently, but since we're changing the warning anyway (as we
added the version of Perl in which the attributes will disappear),
we've used the same phrasing for this warning, regardless of where
it is generated:
Attribute "locked" is deprecated, and will disappear in Perl 5.28
Attribute "unique" is deprecated, and will disappear in Perl 5.28
Diffstat (limited to 'handy.h')
| -rw-r--r-- | handy.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2477,6 +2477,9 @@ void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumbe #ifdef PERL_CORE # define deprecate(s) Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), \ "Use of " s " is deprecated") +# define deprecate_disappears_in(when,message) \ + Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), \ + message ", and will disappear in Perl " when) #endif /* Internal macros to deal with gids and uids */ |