diff options
author | Karl Williamson <khw@cpan.org> | 2015-12-08 22:30:22 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-12-08 22:36:28 -0700 |
commit | d528804abb10f4a7df33f93d35cd70c46de58e60 (patch) | |
tree | 8cd6c531c3dba9f3f676555a14afa42e2ad0db85 /utf8.c | |
parent | 0fd86aa72aab7825bf5f029a0b1c957d004179eb (diff) | |
download | perl-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); } |