In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/9ef15e2cb2f63e1ce45bd222471285ab7bc091ef?hp=2e11cf67d5f4d36fbbcd2b2e66dbc5bfb0fd7836>
- Log ----------------------------------------------------------------- commit 9ef15e2cb2f63e1ce45bd222471285ab7bc091ef Author: Dagfinn Ilmari Mannsåker <[email protected]> Date: Sun Oct 29 12:57:25 2017 +0000 Clarify comments around deprecated attributes ----------------------------------------------------------------------- Summary of changes: ext/attributes/attributes.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ext/attributes/attributes.pm b/ext/attributes/attributes.pm index 82e970ad6e..402caf1834 100644 --- a/ext/attributes/attributes.pm +++ b/ext/attributes/attributes.pm @@ -1,6 +1,6 @@ package attributes; -our $VERSION = 0.31; +our $VERSION = 0.32; @EXPORT_OK = qw(get reftype); @EXPORT = (); @@ -18,6 +18,8 @@ sub carp { goto &Carp::carp; } +# Hash of SV type (CODE, SCALAR, etc.) to regex matching deprecated +# attributes for that type. my %deprecated; my %msg = ( @@ -28,7 +30,7 @@ my %msg = ( sub _modify_attrs_and_deprecate { my $svtype = shift; - # Now that we've removed handling of locked from the XS code, we need to + # After we've removed a deprecated attribute from the XS code, we need to # remove it here, else it ends up in @badattrs. (If we do the deprecation in # XS, we can't control the warning based on *our* caller's lexical settings, # and the warned line is in this package) -- Perl5 Master Repository
