This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Fix broken EBCDIC compilation
authorKarl Williamson <khw@cpan.org>
Wed, 9 Dec 2015 05:30:22 +0000 (22:30 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 9 Dec 2015 05:36:28 +0000 (22:36 -0700)
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.)

utf8.c

diff --git a/utf8.c b/utf8.c
index e3b3f15..1b132b4 100644 (file)
--- 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);
         }