This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
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_catpvf(dsv, """);
+           sv_catpvs(dsv, """);
            break;
        default:
            if (c < 0xD800) {