Searched defs:cop (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dcop.h0 /* cop.h
12 * At run time, PL_curcop is set to point to the most recently executed cop,
16 struct cop { struct
H A Dop.c466 S_cop_free(pTHX_ COP* cop) argument
468 Safefree(cop->cop_label); /* FIXME: treaddead ??? */
469 CopFILE_free(cop);
470 CopSTASH_free(cop);
471 if (! specialWARN(cop->cop_warnings))
472 SvREFCNT_dec(cop->cop_warnings);
473 if (! specialCopIO(cop->cop_io)) {
477 char *s = SvPV(cop->cop_io,len);
481 SvREFCNT_dec(cop->cop_io);
3357 register COP *cop; local
[all...]
H A Dutil.c916 S_closest_cop(pTHX_ COP *cop, OP *o) argument
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; local
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) co
[all...]

Completed in 29 milliseconds