Avoid using *pvf functions when the format string is a fixed string.

p4raw-id: //depot/perl@32043

1 files changed, 4 insertions, 4 deletions

diff --git a/dump.c b/dump.c
index 0d7fd34680..1ad3e77b9b 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) {