Lines Matching defs:PL_curcop
627 PL_curcop|5.004050||p
3853 # define PL_curcop curcop
4105 COP * const ocurcop = PL_curcop;
4117 PL_curcop = ocurcop;
4206 HV *old_cop_stash = PL_curcop->cop_stash;
4208 line_t oldline = PL_curcop->cop_line;
4209 PL_curcop->cop_line = PL_copline;
4213 PL_curstash = PL_curcop->cop_stash = stash;
4231 PL_curcop->cop_stash = old_cop_stash;
4233 PL_curcop->cop_line = oldline;
5641 # define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling)
5645 # define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE)