Lines Matching defs:pm
328 Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, PMOP *pm)
332 if (!pm) {
338 if (pm->op_pmflags & PMf_ONCE)
342 if (PM_GETRE(pm))
344 ch, PM_GETRE(pm)->precomp, ch,
345 (pm->op_private & OPpRUNTIME) ? " (RUNTIME)" : "");
348 if (pm->op_type != OP_PUSHRE && pm->op_pmreplroot) {
350 op_dump(pm->op_pmreplroot);
352 if (pm->op_pmflags || (PM_GETRE(pm) && PM_GETRE(pm)->check_substr)) {
354 if (pm->op_pmdynflags & PMdf_USED)
356 if (pm->op_pmdynflags & PMdf_TAINTED)
358 if (pm->op_pmflags & PMf_ONCE)
360 if (PM_GETRE(pm) && PM_GETRE(pm)->check_substr
361 && !(PM_GETRE(pm)->reganch & ROPT_NOSCAN))
363 if (PM_GETRE(pm) && PM_GETRE(pm)->check_substr
364 && PM_GETRE(pm)->reganch & ROPT_CHECK_ALL)
366 if (pm->op_pmflags & PMf_SKIPWHITE)
368 if (pm->op_pmflags & PMf_CONST)
370 if (pm->op_pmflags & PMf_KEEP)
372 if (pm->op_pmflags & PMf_GLOBAL)
374 if (pm->op_pmflags & PMf_CONTINUE)
376 if (pm->op_pmflags & PMf_RETAINT)
378 if (pm->op_pmflags & PMf_EVAL)
388 Perl_pmop_dump(pTHX_ PMOP *pm)
390 do_pmop_dump(0, Perl_debug_log, pm);