summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-10-06 10:23:26 +0000
committerNicholas Clark <nick@ccl4.org>2007-10-06 10:23:26 +0000
commit7fddd94457983d86b562b409f0a846c0a764f8d7 (patch)
tree58edf1082167bfbff71447af78ea3b954d188681 /utf8.c
parenta5849ce59200ae4eedc45d2d16a7d1a3b6fc0ee2 (diff)
downloadperl-7fddd94457983d86b562b409f0a846c0a764f8d7.tar.gz
Revert one hunk of change 32034 that had the possibility of being buggy
(the sprintf "%c" code will work correctly when the SV is UTF-8). Audit all the rest for UTF-8 correctness, and force SvUTF-8_off() in utf8.c to ensure correctness. (The string is reset to "", so this will not be a behaviour change.) p4raw-id: //depot/perl@32040
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/utf8.c b/utf8.c
index c665a417ce..45b17b1b62 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2136,6 +2136,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV f
const char *s, *e;
sv_setpvn(dsv, "", 0);
+ SvUTF8_off(dsv);
for (s = (const char *)spv, e = s + len; s < e; s += UTF8SKIP(s)) {
UV u;
/* This serves double duty as a flag and a character to print after