Change 33584 by [EMAIL PROTECTED] on 2008/03/27 14:42:41
Subject: [PATCH] MAD dump xml escape regex
From: Gerard Goossen <[EMAIL PROTECTED]>
Date: Thu, 27 Mar 2008 13:55:31 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/dump.c#304 edit
... //depot/perl/mad/t/p55.t#7 edit
Differences ...
==== //depot/perl/dump.c#304 (text) ====
Index: perl/dump.c
--- perl/dump.c#303~33364~ 2008-02-25 00:02:50.000000000 -0800
+++ perl/dump.c 2008-03-27 07:42:41.000000000 -0700
@@ -2534,8 +2534,8 @@
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);
==== //depot/perl/mad/t/p55.t#7 (text) ====
Index: perl/mad/t/p55.t
--- perl/mad/t/p55.t#6~33467~ 2008-03-10 14:34:23.000000000 -0700
+++ perl/mad/t/p55.t 2008-03-27 07:42:41.000000000 -0700
@@ -75,30 +75,10 @@
../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;
End of Patch.
