Lines Matching refs:pm
262 /* XXX %! tied to Errno.pm needs to be added here.
1350 case OP_SELECT: /* XXX c.f. SelectSaver.pm */
1499 #define ATTRSMODULE_PM "attributes.pm"
1540 /* Ensure that attributes.pm is loaded. */
2673 /* link into pm list */
2686 PMOP *pm;
2694 pm = (PMOP*)o;
2703 pm->op_pmflags |= PMf_SKIPWHITE;
2706 pm->op_pmdynflags |= PMdf_UTF8;
2707 PM_SETRE(pm, CALLREGCOMP(aTHX_ p, p + plen, pm));
2708 if (strEQ("\\s+", PM_GETRE(pm)->precomp))
2709 pm->op_pmflags |= PMf_WHITE;
2713 if (pm->op_pmflags & PMf_KEEP || !(PL_hints & HINT_RE_EVAL))
2729 if (pm->op_pmflags & PMf_KEEP || !(PL_hints & HINT_RE_EVAL)) {
2744 if (pm->op_pmflags & PMf_EVAL) {
2802 && (!PM_GETRE(pm)
2803 || PM_GETRE(pm)->reganch & ROPT_EVAL_SEEN))) {
2804 pm->op_pmflags |= PMf_CONST; /* const for long enough */
2805 pm->op_pmpermflags |= PMf_CONST; /* const for long enough */
2809 if (curop == repl && !PM_GETRE(pm)) { /* Has variables. */
2810 pm->op_pmflags |= PMf_MAYBE_CONST;
2811 pm->op_pmpermflags |= PMf_MAYBE_CONST;
2825 pm->op_pmreplroot = scalar((OP*)rcop);
2826 pm->op_pmreplstart = LINKLIST(rcop);
2831 return (OP*)pm;
3011 * a Foo.pm should or would contain anything in package "Foo".
3031 Eg, "Foo::Bar" instead of "Foo/Bar.pm". flags can be any of
3295 PMOP *pm = (PMOP*)tmpop;
3301 if (tmpop->op_type == OP_GV && !pm->op_pmreplroot) {
3303 pm->op_pmreplroot = INT2PTR(OP*, cPADOPx(tmpop)->op_padix);
3306 pm->op_pmreplroot = (OP*)cSVOPx(tmpop)->op_sv;
3309 pm->op_pmflags |= PMf_ONCE;
3870 * for our $x () sets OPpOUR_INTRO; both only used by Deparse.pm */
5781 if (o->op_flags & OPf_KIDS) { /* Shall we supply missing .pm? */
5795 sv_catpvn(kid->op_sv, ".pm", 3);
5799 sv_catpvn(kid->op_sv, ".pm", 3);