From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 18 Apr 2006 15:47:48 +0000 (+0000)
Subject: A fix to change #27845 to get it to compile with -DPERL_MAD.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3df43ef74691011f52cfd7284586a56044a8a4f2;p=p5sagit%2Fp5-mst-13.2.git

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