diff options
author | Richard Leach <richardleach@users.noreply.github.com> | 2022-09-21 15:56:10 +0000 |
---|---|---|
committer | Richard Leach <richardleach@users.noreply.github.com> | 2022-09-26 12:04:16 +0100 |
commit | b93391659d456f4fb0d24eb43c150565f51abbc4 (patch) | |
tree | 8814b9d150d0244bae193fc556cd910566d36681 /lib/B | |
parent | ed4b2b05d25c19e1c2271b7f125531933fdab5aa (diff) | |
download | perl-b93391659d456f4fb0d24eb43c150565f51abbc4.tar.gz |
B::Deparse.pm - add padsv_store to list in sub retscalar
Issue #20327 revealed that code that is expected to deparse to:
&$uncompress(my $Tmp = shift());
has, since the addition of padsv_store, been deparsing to this:
&$uncompress(scalar(my $Tmp = shift()));
This seems to be because padsv_store was not added to a particular list
of scalar OPs in B::Deparse.pm.
Closes #20327.
Diffstat (limited to 'lib/B')
-rw-r--r-- | lib/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 3d1d8b36cc..e11ccba3d1 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.69; +package B::Deparse 1.70; use strict; use Carp; use B qw(class main_root main_start main_cv svref_2object opnumber perlstring @@ -5129,7 +5129,7 @@ sub retscalar { |msgrcv|semop|semget|semctl|hintseval|shostent|snetent |sprotoent|sservent|ehostent|enetent|eprotoent|eservent |spwent|epwent|sgrent|egrent|getlogin|syscall|lock|runcv - |fc)\z/x + |fc|padsv_store)\z/x } sub pp_entersub { |