summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-12-08 22:30:22 -0700
committerKarl Williamson <khw@cpan.org>2015-12-08 22:36:28 -0700
commitd528804abb10f4a7df33f93d35cd70c46de58e60 (patch)
tree8cd6c531c3dba9f3f676555a14afa42e2ad0db85 /utf8.c
parent0fd86aa72aab7825bf5f029a0b1c957d004179eb (diff)
downloadperl-d528804abb10f4a7df33f93d35cd70c46de58e60.tar.gz
utf8.c: Fix broken EBCDIC compilation
Commit ba6ed43c6aca7f1ff5a1b82062faa3e1c33c0582 left out a '}' which is skipped except in EBCDIC builds. (I meant to make sure things would compile (by reversing the sense of the #if's) on EBCDIC, but forgot at the time it should have been done.)
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 e3b3f158a7..1b132b49ad 100644
--- a/utf8.c
+++ b/utf8.c
@@ -230,6 +230,7 @@ Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
handled just above */
if (UNLIKELY(UNICODE_IS_32_CONTIGUOUS_NONCHARS(uv))) {
HANDLE_UNICODE_NONCHAR(uv, flags);
+ }
else if (UNLIKELY(UNICODE_IS_SURROGATE(uv))) {
HANDLE_UNICODE_SURROGATE(uv, flags);
}