diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-11-12 06:13:44 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-14 05:54:35 -0800 |
| commit | c5f75dbad5e3c30268ca3c689bf1f3316d2c3a5a (patch) | |
| tree | 377f4a6eacfc80909a0e4bc402be656f315eff48 /op.c | |
| parent | bc81b34d0e30a0939f9a765397a98e4d1fdfa3e1 (diff) | |
| download | perl-c5f75dbad5e3c30268ca3c689bf1f3316d2c3a5a.tar.gz | |
Compile-time checking for %$obj{"key"} under ‘use fields’
This single line of code also gives us shared hash key optimisa-
tions for free.
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1935,6 +1935,7 @@ S_finalize_op(pTHX_ OP* o) case OP_HSLICE: S_scalar_slice_warning(aTHX_ o); + case OP_KVHSLICE: if (/* I bet there's always a pushmark... */ (kid = cLISTOPo->op_first->op_sibling)->op_type != OP_LIST && kid->op_type != OP_CONST) |