X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=1ad3e77b9b9def199126030e6f7f8b31f3ceca0d;hb=f3a2811a943652950bfdb6408b09c32b4bf531d0;hp=0d7fd346802ba74f496baac1e156d8e7cf9b4a2e;hpb=550e2ce03d201c2e16d6755c5e8b7feb3b2afe06;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index 0d7fd34..1ad3e77 100644
--- a/dump.c
+++ b/dump.c
@@ -2234,16 +2234,16 @@ Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8)
 	    Perl_sv_catpvf(aTHX_ dsv, "STUPIDXML(#x%X)", c);
 	    break;
 	case '<':
-	    Perl_sv_catpvf(aTHX_ dsv, "&lt;");
+	    sv_catpvs(dsv, "&lt;");
 	    break;
 	case '>':
-	    Perl_sv_catpvf(aTHX_ dsv, "&gt;");
+	    sv_catpvs(dsv, "&gt;");
 	    break;
 	case '&':
-	    Perl_sv_catpvf(aTHX_ dsv, "&amp;");
+	    sv_catpvs(dsv, "&amp;");
 	    break;
 	case '"':
-	    Perl_sv_catpvf(aTHX_ dsv, "&#34;");
+	    sv_catpvf(dsv, "&#34;");
 	    break;
 	default:
 	    if (c < 0xD800) {