diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-07-09 12:22:48 +0100 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-07-26 11:32:40 +0100 |
| commit | ec11e33811b7a90a27013992efdb3c6ca76787fd (patch) | |
| tree | a1a89c4b92281a054498f108df6778b160f26295 /lib | |
| parent | 0721b9ab151951a37f60b77264f7ad6341fe2b70 (diff) | |
| download | perl-ec11e33811b7a90a27013992efdb3c6ca76787fd.tar.gz | |
Rename CVf_METHOD to CVf_NOWARN_AMBIGUOUS
Also renames the CvMETHOD* macro family to CvNOWARN_AMBIGUOUS*
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index bb1affe81e..2767058282 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -7,7 +7,7 @@ # This is based on the module of the same name by Malcolm Beattie, # but essentially none of his code remains. -package B::Deparse 1.65; +package B::Deparse 1.66; use strict; use Carp; use B qw(class main_root main_start main_cv svref_2object opnumber perlstring @@ -25,7 +25,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring OPpTRUEBOOL OPpINDEX_BOOLNEG OPpDEFER_FINALLY SVf_IOK SVf_NOK SVf_ROK SVf_POK SVf_FAKE SVs_RMG SVs_SMG SVs_PADTMP - CVf_METHOD CVf_LVALUE + CVf_NOWARN_AMBIGUOUS CVf_LVALUE PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED PMf_EXTENDED_MORE PADNAMEf_OUTER PADNAMEf_OUR PADNAMEf_TYPED @@ -1322,9 +1322,9 @@ Carp::confess("SPECIAL in deparse_sub") if $cv->isa("B::SPECIAL"); $proto = $myproto; } } - if ($cv->CvFLAGS & (CVf_METHOD|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) { + if ($cv->CvFLAGS & (CVf_NOWARN_AMBIGUOUS|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) { push @attrs, "lvalue" if $cv->CvFLAGS & CVf_LVALUE; - push @attrs, "method" if $cv->CvFLAGS & CVf_METHOD; + push @attrs, "method" if $cv->CvFLAGS & CVf_NOWARN_AMBIGUOUS; push @attrs, "const" if $cv->CvFLAGS & CVf_ANONCONST; } |