diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2016-05-20 17:50:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-05-20 22:13:43 -0700 |
| commit | cd642408b70f009ca99d93c350a0bfc33707da9a (patch) | |
| tree | 21e0bbace19c6c86f80cdd24b62e1b89081a4b75 /pp.c | |
| parent | bea284c81588d5800ea7246f6a409ab0599e57e5 (diff) | |
| download | perl-cd642408b70f009ca99d93c350a0bfc33707da9a.tar.gz | |
Allow assignment to &CORE::keys()
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4847,7 +4847,7 @@ PP(pp_akeys) if ( PL_op->op_type == OP_AKEYS || ( PL_op->op_type == OP_AVHVSWITCH - && PL_op->op_private + OP_AEACH == OP_AKEYS )) + && (PL_op->op_private & 3) + OP_AEACH == OP_AKEYS )) { for (i = 0; i <= n; i++) { mPUSHi(i); @@ -6421,7 +6421,7 @@ PP(pp_avhvswitch) dSP; return PL_ppaddr[ (SvTYPE(TOPs) == SVt_PVAV ? OP_AEACH : OP_EACH) - + PL_op->op_private + + (PL_op->op_private & 3) ](aTHX); } |