diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-10-06 10:23:26 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-10-06 10:23:26 +0000 |
commit | 7fddd94457983d86b562b409f0a846c0a764f8d7 (patch) | |
tree | 58edf1082167bfbff71447af78ea3b954d188681 /utf8.c | |
parent | a5849ce59200ae4eedc45d2d16a7d1a3b6fc0ee2 (diff) | |
download | perl-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |