Lines Matching defs:PL_curcop
556 PL_curcop|5.004050||p
2943 # define PL_curcop curcop
3353 HV *old_cop_stash = PL_curcop->cop_stash;
3355 line_t oldline = PL_curcop->cop_line;
3356 PL_curcop->cop_line = PL_copline;
3360 PL_curstash = PL_curcop->cop_stash = stash;
3378 PL_curcop->cop_stash = old_cop_stash;
3380 PL_curcop->cop_line = oldline;
4183 # define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)
4187 # define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE)