Lines Matching defs:cop
916 S_closest_cop(pTHX_ COP *cop, OP *o)
918 /* Look for PL_op starting from o. cop is the last COP we've seen. */
920 if (!o || o == PL_op) return cop;
932 cop = (COP *)kid;
936 new_cop = closest_cop(cop, kid);
951 COP *cop;
958 * PL_curcop, but it might be a cop that has been optimised away. We
959 * can try to find such a cop by searching through the optree starting
963 cop = closest_cop(PL_curcop, PL_curcop->op_sibling);
964 if (!cop) cop = PL_curcop;
966 if (CopLINE(cop))
968 OutCopFILE(cop), (IV)CopLINE(cop));