summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2008-10-29 23:04:34 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2008-10-29 23:04:34 +0000
commit76f68e9bb86f29e34e2aeb5c177571288f05b7ca (patch)
tree5d94b541dac7cf118c0a7f00f82e41b8883db427 /utf8.c
parent502c6561fcd473b7da3277363169d75f16ac2f8b (diff)
downloadperl-76f68e9bb86f29e34e2aeb5c177571288f05b7ca.tar.gz
Use pvs macros instead of pvn where possible.
p4raw-id: //depot/perl@34653
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/utf8.c b/utf8.c
index 08fc541673..517a67f186 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2254,7 +2254,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f
PERL_ARGS_ASSERT_PV_UNI_DISPLAY;
- sv_setpvn(dsv, "", 0);
+ sv_setpvs(dsv, "");
SvUTF8_off(dsv);
for (s = (const char *)spv, e = s + len; s < e; s += UTF8SKIP(s)) {
UV u;
@@ -2288,7 +2288,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f
}
if (ok) {
const char string = ok;
- sv_catpvn(dsv, "\\", 1);
+ sv_catpvs(dsv, "\\");
sv_catpvn(dsv, &string, 1);
}
}