Lines Matching refs:PL_op
1915 PL_op = PL_restartop;
1921 PL_op = PL_main_start;
2123 OP* oldop = PL_op;
2139 PL_op = (OP*)&myop;
2153 PL_op->op_private |= OPpENTERSUB_DB;
2157 method_op.op_next = PL_op;
2160 PL_op = (OP*)&method_op;
2183 PL_eval_root = PL_op; /* Only needed so that goto works right. */
2224 PL_op = PL_restartop;
2260 PL_op = oldop;
2279 if (PL_op == myop) {
2281 PL_op = Perl_pp_entereval(aTHX); /* this doesn't do a POPMARK */
2283 PL_op = Perl_pp_entersub(aTHX); /* this does */
2285 if (PL_op)
2310 OP* oldop = PL_op;
2319 PL_op = (OP*)&myop;
2320 Zero(PL_op, 1, UNOP);
2366 PL_op = PL_restartop;
2387 PL_op = oldop;