diff options
| author | Gerard Goossen <gerard@tty.nl> | 2008-03-27 14:55:31 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-27 14:42:41 +0000 |
| commit | 643e696a61334e453a6ab25a83a9625db27387ac (patch) | |
| tree | 56bf7733b166fa5486e6ae723a92d4e113e94af1 | |
| parent | 083e9212117053c68df042b3498d248a18973347 (diff) | |
| download | perl-643e696a61334e453a6ab25a83a9625db27387ac.tar.gz | |
MAD dump xml escape regex
Message-ID: <20080327125531.GN4409@ostwald>
p4raw-id: //depot/perl@33584
| -rw-r--r-- | dump.c | 4 | ||||
| -rw-r--r-- | mad/t/p55.t | 20 |
2 files changed, 2 insertions, 22 deletions
@@ -2534,8 +2534,8 @@ Perl_do_pmop_xmldump(pTHX_ I32 level, PerlIO *file, const PMOP *pm) level++; if (PM_GETRE(pm)) { REGEXP *const r = PM_GETRE(pm); - SV * const tmpsv = newSVsv((SV*)r); - sv_utf8_upgrade(tmpsv); + SV * const tmpsv = newSVpvn_utf8("", 0, TRUE); + sv_catxmlsv(tmpsv, (SV*)r); Perl_xmldump_indent(aTHX_ level, file, "pre=\"%s\"\n", SvPVX(tmpsv)); SvREFCNT_dec(tmpsv); diff --git a/mad/t/p55.t b/mad/t/p55.t index e1f35236a8..fcfa032f5c 100644 --- a/mad/t/p55.t +++ b/mad/t/p55.t @@ -75,30 +75,10 @@ our %failing = map { $_, 1 } qw| ../t/op/exec.t ../t/io/say.t -../t/io/open.t -../t/op/gv.t -../t/op/re.t -../t/op/tr.t -../t/op/die.t -../t/op/pat.t -../t/op/reg_namedcapture.t -../t/op/reg_email.t -../t/op/reg_nc_tie.t -../t/op/utf8decode.t ../t/op/state.t -../t/op/subst.t -../t/op/goto.t ../t/op/tiehandle.t -../t/op/pack.t ../t/op/each_array.t -../t/op/sprintf.t -../t/op/attrs.t -../t/op/universal.t -../t/op/regexp.t ../t/lib/cygwin.t -../t/run/switchd.t -../t/comp/proto.t -../t/win32/system.t |; my @files; |