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 /opcode.h | |
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 'opcode.h')
-rw-r--r-- | opcode.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1764,7 +1764,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000604, /* const */ 0x00000644, /* gvsv */ 0x00000644, /* gv */ - 0x00011240, /* gelem */ + 0x00011244, /* gelem */ 0x00000044, /* padsv */ 0x00000040, /* padav */ 0x00000040, /* padhv */ @@ -2139,7 +2139,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000040, /* introcv */ 0x00000040, /* clonecv */ 0x00000040, /* padrange */ - 0x00000240, /* refassign */ + 0x00000244, /* refassign */ 0x00000b40, /* lvref */ 0x00000440, /* lvrefslice */ 0x00000b40, /* lvavref */ |