Fix typo in change 32043 - s/sv_catpvf/sv_catpvs/

[perl5.git] / dump.c

diff --git a/dump.c b/dump.c
index 1ad3e77..d4fe8b5 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2243,7 +2243,7 @@ Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8)
            sv_catpvs(dsv, "&");
            break;
        case '"':
            sv_catpvs(dsv, "&");
            break;
        case '"':

-           sv_catpvf(dsv, """);
+           sv_catpvs(dsv, """);

            break;
        default:
            if (c < 0xD800) {
            break;
        default:
            if (c < 0xD800) {