diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-04-18 15:47:48 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-04-18 15:47:48 +0000 |
| commit | 3df43ef74691011f52cfd7284586a56044a8a4f2 (patch) | |
| tree | c7054ee195ae99cb7ab7c20d773cd795fa7488df /dump.c | |
| parent | bf2a35e5fa65d1d6e42daf3cc8bede2ee1fc847e (diff) | |
| download | perl-3df43ef74691011f52cfd7284586a56044a8a4f2.tar.gz | |
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
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |