diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2022-07-27 18:03:46 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2022-07-27 23:09:05 +0100 |
commit | 3d5c4765189d8c979389b94387b68adf2e52ba36 (patch) | |
tree | 94eb2fca8b59820b9f062541de7afe1b0965c488 /lib/B | |
parent | 8290d9dfc2f9409fe4a688c355052cd2bd7ffcdb (diff) | |
download | perl-3d5c4765189d8c979389b94387b68adf2e52ba36.tar.gz |
B::Deparse: Remove obsolete handling of OP_ENTERSUB's OPf_SPECIAL flag
It was used to flag that call sub was being called using the `do
SUBNAME(LIST)` notation, which was removed in 5.20 (commit
8c74b41425572faeb638f1269025b59d0785794f).
Diffstat (limited to 'lib/B')
-rw-r--r-- | lib/B/Deparse.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 2767058282..ca37d110b2 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.66; +package B::Deparse 1.67; use strict; use Carp; use B qw(class main_root main_start main_cv svref_2object opnumber perlstring @@ -5103,9 +5103,7 @@ sub pp_entersub { my $prefix = ""; my $amper = ""; my($kid, @exprs); - if ($op->flags & OPf_SPECIAL && !($op->flags & OPf_MOD)) { - $prefix = "do "; - } elsif ($op->private & OPpENTERSUB_AMPER) { + if ($op->private & OPpENTERSUB_AMPER) { $amper = "&"; } $kid = $op->first; |