diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 12:35:47 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 12:58:23 -0800 |
commit | 6e372f323c26202f7e607d6efdc264401e1a49b3 (patch) | |
tree | fba869b3a06d83ebf9fb5e97d7e4260c443a74b5 /regen/opcodes | |
parent | c46871e754baf56ac611f9ee6d15b8b8c9cd15ff (diff) | |
download | perl-6e372f323c26202f7e607d6efdc264401e1a49b3.tar.gz |
gelem and refassign can have OA_RETSCALAR
They only ever return scalars, but were not flagged that way.
This change allows \*foo{THING} and \(\$x=\$y) to use srefgen, a
faster version of refgen that handles only one item.
Diffstat (limited to 'regen/opcodes')
-rw-r--r-- | regen/opcodes | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/opcodes b/regen/opcodes index a6e106eac3..322a456d1f 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -51,7 +51,7 @@ const constant item ck_svconst s$ gvsv scalar variable ck_null ds$ gv glob value ck_null ds$ -gelem glob elem ck_null d2 S S +gelem glob elem ck_null ds2 S S padsv private variable ck_null ds0 padav private array ck_null d0 padhv private hash ck_null d0 @@ -561,7 +561,7 @@ padcv private subroutine ck_null d0 introcv private subroutine ck_null d0 clonecv private subroutine ck_null d0 padrange list of private variables ck_null d0 -refassign lvalue ref assignment ck_refassign d2 +refassign lvalue ref assignment ck_refassign ds2 lvref lvalue ref assignment ck_null d% lvrefslice lvalue ref assignment ck_null d@ lvavref lvalue array reference ck_null d% |