A fix to change #27845 to get it to compile with -DPERL_MAD.

p4raw-link: @27845 on //depot/perl: 4199688e3d699f53e17448d3bad6e93e57d49dcc

p4raw-id: //depot/perl@27889

diff --git a/dump.c b/dump.c
index e548585..5fa6700 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2268,7 +2268,7 @@ Perl_do_pmop_xmldump(pTHX_ I32 level, PerlIO *file, const PMOP *pm)
     else
        Perl_xmldump_indent(aTHX_ level, file, "pre=\"\" when=\"RUN\"\n");
     if (pm->op_pmflags || (PM_GETRE(pm) && PM_GETRE(pm)->check_substr)) {
     else
        Perl_xmldump_indent(aTHX_ level, file, "pre=\"\" when=\"RUN\"\n");
     if (pm->op_pmflags || (PM_GETRE(pm) && PM_GETRE(pm)->check_substr)) {

-       SV * const tmpsv = pmflags_description(pm);
+       SV * const tmpsv = pm_description(pm);

        Perl_xmldump_indent(aTHX_ level, file, "pmflags=\"%s\"\n", SvCUR(tmpsv) ? SvPVX(tmpsv) + 1 : "");
        SvREFCNT_dec(tmpsv);
     }
        Perl_xmldump_indent(aTHX_ level, file, "pmflags=\"%s\"\n", SvCUR(tmpsv) ? SvPVX(tmpsv) + 1 : "");
        SvREFCNT_dec(tmpsv);
     }