Lines Matching defs:key_op

2701  * key_op is the first key
2706 Perl_check_hash_fields_and_hekify(pTHX_ UNOP *rop, SVOP *key_op, int real)
2739     for (; key_op; key_op = cSVOPx(OpSIBLING(key_op))) {
2741         if (key_op->op_type != OP_CONST)
2743         svp = cSVOPx_svp(key_op);
2746         if (key_op->op_private & OPpCONST_BARE &&
2747             key_op->op_private & OPpCONST_STRICT)
2749             no_bareword_allowed((OP*)key_op);