This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A fix to change #27845 to get it to compile with -DPERL_MAD.
authorSteve Peters <steve@fisharerojo.org>
Tue, 18 Apr 2006 15:47:48 +0000 (15:47 +0000)
committerSteve Peters <steve@fisharerojo.org>
Tue, 18 Apr 2006 15:47:48 +0000 (15:47 +0000)
p4raw-link: @27845 on //depot/perl: 4199688e3d699f53e17448d3bad6e93e57d49dcc

p4raw-id: //depot/perl@27889

dump.c

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)) {
-       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);
     }