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/
authorNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 14:56:18 +0000 (14:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 6 Oct 2007 14:56:18 +0000 (14:56 +0000)
p4raw-id: //depot/perl@32047

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, "&amp;");
            break;
        case '"':
-           sv_catpvf(dsv, "&#34;");
+           sv_catpvs(dsv, "&#34;");
            break;
        default:
            if (c < 0xD800) {