diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-01-18 12:52:29 +0000 |
|---|---|---|
| committer | Sawyer X <xsawyerx@cpan.org> | 2017-06-01 10:53:44 +0200 |
| commit | 01cb645528690d8065b86c3a0db2738055e142de (patch) | |
| tree | 96199a34e956bf7551da0d54634c6565b40168ed /lib | |
| parent | cfdc35fc22e32a4383f59856f093e3f386a646b7 (diff) | |
| download | perl-01cb645528690d8065b86c3a0db2738055e142de.tar.gz | |
Remove deprecated no-op :locked attribute
It's been a no-op since 5.10 and deprecated since 5.12.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 3166415b54..6c35a7275e 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -47,7 +47,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring MDEREF_SHIFT ); -$VERSION = '1.40'; +$VERSION = '1.41'; use strict; use vars qw/$AUTOLOAD/; use warnings (); @@ -1334,7 +1334,6 @@ Carp::confess("SPECIAL in deparse_sub") if $cv->isa("B::SPECIAL"); } if ($cv->CvFLAGS & (CVf_METHOD|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) { push @attrs, "lvalue" if $cv->CvFLAGS & CVf_LVALUE; - push @attrs, "locked" if $cv->CvFLAGS & CVf_LOCKED; push @attrs, "method" if $cv->CvFLAGS & CVf_METHOD; push @attrs, "const" if $cv->CvFLAGS & CVf_ANONCONST; } |