Lines Matching refs:cop
466 S_cop_free(pTHX_ COP* cop)
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;
3359 NewOp(1101, cop, 1, COP);
3361 cop->op_type = OP_DBSTATE;
3362 cop->op_ppaddr = PL_ppaddr[ OP_DBSTATE ];
3365 cop->op_type = OP_NEXTSTATE;
3366 cop->op_ppaddr = PL_ppaddr[ OP_NEXTSTATE ];
3368 cop->op_flags = (U8)flags;
3369 cop->op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);
3371 cop->op_private |= NATIVE_HINTS;
3373 PL_compiling.op_private = cop->op_private;
3374 cop->op_next = (OP*)cop;
3377 cop->cop_label = label;
3380 cop->cop_seq = seq;
3381 cop->cop_arybase = PL_curcop->cop_arybase;
3383 cop->cop_warnings = PL_curcop->cop_warnings ;
3385 cop->cop_warnings = newSVsv(PL_curcop->cop_warnings) ;
3387 cop->cop_io = PL_curcop->cop_io;
3389 cop->cop_io = newSVsv(PL_curcop->cop_io) ;
3393 CopLINE_set(cop, CopLINE(PL_curcop));
3395 CopLINE_set(cop, PL_copline);
3399 CopFILE_set(cop, CopFILE(PL_curcop)); /* XXX share in a pvtable? */
3401 CopFILEGV_set(cop, CopFILEGV(PL_curcop));
3403 CopSTASH_set(cop, PL_curstash);
3406 SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE);
3409 SvIVX(*svp) = PTR2IV(cop);
3413 return prepend_elem(OP_LINESEQ, (OP*)cop, o);